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FOREWORD 


This  report  is  based  on  a  study  performed  at  the  Air  For'ct  Armament 
Laboratory  from  April  through  August  1972  as  part  of  Project  2E67,  Task  02, 
Work  Unit  014 . 

This  technical  report  has  been  reviewed  and  is  approved. 


ABSTRACT 


This  report  documents  the  external  flow  fields  caused  by  various 
weapon  configurations  on  the  wing  of  an  F-4  aircraft,  verifies  assumptions 
made  in  the  flow  angularity  technique,  and  presents  the  documentation  for 
the  "Flow  Angularity  Computer  Program"  with  example  trajectories.  The 
flow  angularity  program  is  presently  capable  of  calculating  the  trajec¬ 
tories  of  stores  off  the  inboard  and  outboard  wing  stations  in  either 
single,  triple  ejector  rack,  or  multiple  ejector  rack  configurations. 

9  The  assumptions  made  in  the  flow  angularity  technique  have  been  analyzed 
and  generally  validated  as  good  approximations. 
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SECTION  I 


INTRODUCTION 


The  flow  angularity  technique  for  predicting  store  separation  trajec¬ 
tories  was  originally  documented  in  Reference  (1),  and  this  report  is  a 
follow  on  to  substantiate  some  of  the  assumptions  made  in  that  original 
report  and  to  present  the  text  of  the  "Flow  Angularity  Computer  Program" 

’  (See  Appendixes  I  to  IV).  The  original  "Flow  Angularity  Computer  Program" 
was  designed  around  the  flow  field  of  three  M- 117  bombs  on  a  triple  ejector 
rack  (TER).  In  order  to  simulate  the  launches  of  stores  from  the  different 
positions  on  the  TER,  certain  scaling  parameters  were  used  to  adjust  the 
flow  field.  Since  the  publication  of  the  original  report,  an  additional 
wind  tunnel  test  was  conducted  in  which  the  flow  field  was  surveyed  for 
single  ejector  rack,  TER,  and  a  multiple  ejector  rack  (MER)  configurations. 
These  additional  flow  fields  enabled  the  evaluation  of  many  of  the  scale 
factors  used  in  the  original  program.  The  flow  angularity  program  has  been 
revised  so  it  would  accept  data  from  these  new  flow  fields. 

The  flow  angularity  program  is  presently  being  utilized  at  the  Air 
Force  Armament  Laboratory  for  predicting  trajectories  of  stores  that  have 
had  new  modifications,  and  stores  that  are  new  in  design.  The  flow  angu¬ 
larity  program  is  also  being  used  by  the  6511  Test  Group  (TGEA)  at  El 
Centro,  California,  to  determine  safe  launch  conditions  for  their  test 
vehicles. 
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SECTION  II 


DISCUSSION  OF  FLOW  FIELD  SURVEY  TEST 


A  second  flow  field  survey  test  {similar  to  that  described  in  Reference 
2)  was  conducted  at  Arnold  Engineering  and  Development  Center  in  March  1972. 
The  test  was  conducted  in  order  to  measure  the  velocity  vector  components 
in  the  flow  field  beneath  the  wing  of  the  F-4C  aircraft  at  Mach  number  0.85 
and  is  documented  in  Reference  3.  A  coni  cal -tip  pressure  probe  was  used  to 
measure  the  velocity  vectors  beneath  the  wing  with  configuration  combinations 
of  pylons,  ejector  racks,  (TER  and  MER)  and  stores  (M- 117,  MK-81 ,  and  MK-84 
bombs).  The  F-4  model  and  area  surveyed  are  displayed  in  Figures  1  and  2. 

As  discussed  in  Reference  (1),  the  flow  angularity  semi -empirical 
approach  would  only  be  cost  effective  if  a  flow  field  taken  under  one  set 
of  conditions  could  be  used  to  predict  trajectories  of  stores  under  many 
other  launch  conditions.  Reference  (1)  built  a  rationale  for  using  the 
flow  field  of  three  M- 117  bombs  for  predicting  trajectories  for  one,  two, 
or  three  stores  of  any  type  on  the  TER  at  time  of  launch. 

To  test  this  theory,  trajectories  were  calculated  for  NI-117  bombs, 

SUU-51  bombs,  and  a  tactical  fighter  attack  flare.  These  trajectories 
were  then  compared  with  wind  tunnel  trajectories  under  the  same  conditions. 

It  was  found  that  all  the  trajectories  had  good  trends  and  that  the  flow 
angularity  method  would  be  a  useful  tool  in  predicting  store  separation 
trajectories . 

\ 

This  second  flow  field  test  conducted  in  March  1972  had  as  objectives; 
to  validate  some  assumptions  made  in  the  first  report,  to  collect  flow 
field  data  on  the  MER  configurations  on  the  outboard  wing  station,  and  to 
collect  flow  field  data  on  large  diameter  stores  on  the  inboaVd  and  outboard 
pylon  stations.  By  validating  the  assumptions,  very  little  additional 
flow  field  data  would  be  needed  for  the  F-4,  F-15,  and  A-7  aircraft. 

The  first  approximation  that  needed  investigation  was  the  use  of  the 
three  boiwb  (TER)  configuration  flow  field  to  predict  the  trajectories  of 
stores  from  the  shoulder  stations  of  the  TER.  To  investigate  this  approxi¬ 
mation,  the  MK-81  and  M- 117  bombs  were  tested  in  configurations  T3,  T2,  and 
T1  (See  Figure  3).  The  velocity  components  measured  during  the  test  are 
given  in  Figures  4  to  24.  The  flow  fields  produced  at  the  nose  and  tail  of 
these  bombs  (for  the  TER  configurations)  are  displayed  in  Figures  7(a), 

7(b),  10(a),  10(b),  11(a),  11(b),  12(a),  12(b),  13(a),  13(b),  14(a),  and 
14(b).  As  can  be  seen,  the  flow  pictures  are  similar  for  the  three  confi¬ 
gurations,  but  some  differences  are  present. 

In  order  to  investigate  the  effect  that  the  differences  in  the  flow 
field  have  on  the  trajectories ,  launches  of  the  MK-81  from  the  T2  and  T1 
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Figure  11.  Effect  of  one  M-117  Bomb  and  TER  on  the  Transverse  Velocity 
Components  of  the  Flow  Field  at  M  =  0.85.  V  =  935.  a  =  0.3 
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(a)  MFS  =  12 

Figure  14.  Efiect  of  One  MK-81  Bomb  and  TER  on  the  Transverse  Velocity 
Components  of  the  Flow  Field  at  M  =  0.85,  V  =  935,  a  =03 
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Figure  15.  Effect  of  one  MK-84  Bomb  and  Inboard  Pylon  on  the  Transverse 
Velocity  Components  of  the  Flow  Field  at  M  =  0.85,  V  =  935,  a  =0.3 
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Figure  16.  Effect  of  One  MK-84  Bomb  and  Outboard  Pylon  on  the  Transverse 
Velocity  Components  of  the  Flow  Field  at  M  =  0.85,  V  =  935,  a  =  0.3 
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(b)  MFS  17 
Figure  16.  Continued 
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Figure  16.  Concluded 
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Figure  17.  Effect  of  an  Outboard  MER  on  the  Transverse  Velocity  Components 
of  the  Flow  Field  at  M  =  0.85,  V  =  935,  a  =  0.3 
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Figure  17.  Continued 
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Figure  19.  Continued 
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Figure  19.  Continued 
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Figure  19.  Concluded 
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Figure  21 .  Effect  of  Two  M-117  Bombs  and  Outboard  MER  on  the  Transverse 
Velocity  Components  of  the  Flow  Field  at  =  0.85,  \!m  =  935,  ap  =  0.3 
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(c)  MFS  =  19 
Figure  21.  Continued 
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Figure  22.  Effect  of  One  M-117  Bomb  and  Outboard  MER  on  the  Transverse 
Velocity  Components  of  the  Flow  Field  at  M  =  0.85,  V  =  935,  a  =  0.3 
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Effect  Of  Six  MK-81  Bombs  and  Outboard  MER  on  the  Transverse 
Velocity  Components  of  the  Flow  Field  at  M  =  0.85,  V  =  935  a  =  n  3 
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(d)  MFS  =  18 
Figure  23 .  Continued 
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(e)  MFS  =  19 
Figure  24.  Continued 
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Figure  24.  Concluded 


configurations  with  the  MK-81  T2  and  T1  flow  fields,  respectively,  were 
simulated.  Then  they  were  compared  to  trajectories  of  the  MK-81  in  the 
T2  and  T1  configurations,  but  this  time  calculated  using  the  T3  MK-81  flow 
field  with  a  scale  factor  of  1/3  and  1/5  placed  on  all  the  flow  angulari¬ 
ties  for  the  T2  and  T1  configurations,  respecti vely .  The  comparison  plot 
for  the  T2  configuration  (Figure  25)  shows  that  the  curves  appear  nearly 
on  top  of  each  other.  As  shown  on  the  comparison  plot  for  the  T1  confi¬ 
guration  (Figure  26)  the  yaw  prediction  is  somewhat  different.  Since  the 
scale  factor  of  1/5  for  the  T1  configuration  in  the  T3  flow  field  produces 
good  results  in  all  parameters  except  yaw,  it  can  be  concluded  that  the 
flow  field  cannot  be  scaled  by  a  single  parameter.  However,  the  results 
are  adequate  for  showing  trends  if  that  is  all  that  is  desired.  If  good 
accuracy  is  desired,  a  T1  flow  field  should  be  used  with  a  T1  configuration. 
The  same  results  were  found  with  the  M-117  bomb  in  Reference  1.  The  T2 
configuration  can  be  used  with  the  T3  flow  field  with  good  results. 

The  second  major  approximation  was  that  the  flow  angularities  could 
be  scaled  in  a  direct  relation  to  the  diameter  of  the  bomb  being  launched 
to  the  diameter  of  the  bomb  that  was  used  in  collecting  the  flow  field 
data.  In  order  to  investigate  this  approximation,  the  M-117  and  MK-81 
bombs  were  tested  in  both  the  TER  and  the  MER  configurations ,  and  their 
flow  patterns  are  displayed  in  Figures  7(a),  7(b),  10(a),  10(b),  11(a), 

11(b) ,  12(a),  12(b),  13(a),  13(b),  14(a),  14(b),  18(a)’ to  18(d),  19  (a) 
to  19(d),  20  (a)  to  20(d),  21(a)  to  21(d),  23(a)  to  23(f),  and  24(a)  to 
24(f). 

Similar  flow  pictures  exist  for  both  the  M-117  and  MK-81  bombs  in  the 
same  configurations.  In  order  to  find  the  effect  of  the  differences  that 
do  exist,  the  MK-81  was  launched  from  the  T3,  T2,  and  T1  configuration 
using  the  MK-81  T3,  T2,  and  T1  flow  fields,  respectively.  These  trajec¬ 
tories  were  then  compared  to  the  MK-81  bomb  launched  in  the  T3,  T2,  and  T1 
configuration  using  the  M-117  T3,  T2,  and  T1  flow  fields,  respectively, 
and  a  flow  field  scale  factor  based  on  the  ratio  of  the  weapon  diameters, 

MK-81  DIA  _  9 

M-117  DIA  "  16 

The  resulting  comparisons  are  displayed  in  Figures  27,  28,  and  29.  For 
the  bottom  station  launch  shown  in  Figure  27,  the  M-117  flow  field  produces 
more  pitch  than  the  MK-81  flow  field;  however,  the  comparison  is  still 
very  good  considering  the  large  difference  in  bomb  diameter.  The  shoulder 
station  comparisons  (Figures  28  and  29)  show  nearly  identical  trajectories. 
The  diameter  ratio  scaling  is  a  simple,  accurate  means  of  adjusting  the 
flow  fields  for  various  diameter  bombs. 

A  third  approximation  was  that  the  angle  of  attack  of  the  aircraft 
could  be  added  to  the  flow  angularities  in  the  flow  field.  To  investigate 
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Figure  25.  Pitch,  Yaw,  xs  y,  and  z  Time  Histories  of  a  I^KtBI  Launched 
from  the  Outboard  Shoulder  Station  of  the  TER  at  M  3  0.85  Using  Scaled 
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Figure  26.  Pitch,  Yaw,  x,  y,  and  z  Time  Histories  of  a  MK-81  Launched  from 
the  Inboard  Shoulder  Station  of  the  TER  at  M  =  0.85  Using  Scaled  and 
Unsealed  MK-81  Flow  Field  Data 
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RIGHT  WING  LAUNCH 


Figure  27.  Pitch,  Yaw,  x,  and  z  Time  Histories  of  a  MK-81  Launched 
from  the  Bottom  TER  Station  at  M  =  0.85  Using  M-117  and  MK-81  Flow 
Field  Data 
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(Degrees  or  Feet) 


Figure  28.  Pitch,  Yaw,  x,  y,  and  z  Time  Histories  of  a  MK-81  Launched 
from  the  Outboard  Shoulder  Station  of  the  TER  at  M  =  0.85  Using  M-117 
and  MK-81  Flow  Field  Data 
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RIGHT  WING  LAUNCH 


Figure  29 .  Pitch,  Yaw,  x,  y,  and  z  Time  Histories  of  a  MK-81  Launched 
from  the  Inboard  Shoulder  Station  of  a  TER  at  M  =  0.85  Using  M-117 
and  MK-81  Flow  Field  Data 
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the  validity  of  this  approximation,  the  M- 117  and  MK-81  bombs  were  tested 
in  the  T3  configuration  at  aircraft  angles  of  attack  (ap)  of  0.3  and  3.3 
degrees.  The  flow  pictures  for  the  3.3  degree  conditions  are  displayed 
in  Figures  7(c),  7(d),  12(c),  and  12(d).  The  actual  upwash  angles  are 
presented  for  the  M-117  bomb  at  ap  =  0.3  in  Figures  8(a)  and  8(b)  and 
for  ap  =  3.3  in  Figures  9(a)  and  ^(b).  These  figures  tend  to  show  that 
the  angle  of  attack  can  be  added  to  the  flow  field  angles  and  is  the  only 
practical  way  to  handle  the  angle  of  attack  variations. 

The  effect  of  Mach  number  on  flow  angularity  was  discussed  in 
Reference  (1),  and  an  attempt  was  made  to  collect  data  at  a  Mach  number 
of  1.3  during  the  test  described  in  Reference  (3).  The  method  for  collecting 
data  gave  very  poor  and  inconsistent  results  at  this  Mach  number  and  could 
not  be  analyzed.  In  Reference  (1),  it  was  assumed  that  Mach  number  had  an 
insignificant  effect  on  the  flow  angularity  in  the  subsonic  region;  however, 
this  assumption  produced  trajectories  with  larger  pitch  and  yaw  excursions 
at  low  Mach  numbers  (0.5  and  0.6)  than  experimental  data  obtained  by  the 
captive  trajectory  system.  To  investigate  this  problem,  a  theoretical 
solution  developed  by  Auburn  University  (Reference  1)  was  used  to  calculate 
the  flow  angularities  beneath  two  unfinned  M-117  shaped  bodies  installed 
on  the  TER.  The  resultant  flow  angle  (upwash  angle  u)  was  calculated  at 
a  position  that  would  correspond  to  the  centerline  location  of  the  bottom 
bomb  if  it  were  attached.  These  angles  were  displayed  in  Figure  30  for 
various  Mach  numbers.  The  analysis  shows  there  is  a  Mach  number  effect 
at  the  nose  and  tail  in  a  region  of  the  flow  field  that  would  be  used 
in  the  flow  angularity  program  to  calculate  the  trajectory.  To  account 
for  this  Mach  number  effect,  a  second  order  correction  factor  is  used  to 
fit  the  flow  angularities  at  M  =  .85  to  values  at  higher  or  lower  Mach 
numbers , 

An  objective  of  the  test  was  to  collect  flow  field  data  on  single 
carriage  of  large  diameter  bombs  and  multiple  ejector  rack  configurations. 
Figures  15(a)  to  15(c)  and  16(a)  to  16(c)  show  the  flow  patterns  around 
the  MK-84  bomb  on  the  inboard  and  outboard  wing  stations  (configurations 
IP1  and  0P1).  As  in  the  TER  configurations,  a  downwash  exists  on  the 
nose  and  an  upwash  exists  at  the  tail  of  the  bomb.  Figures  31  and  32 
display  example  trajectories  of  the  MK-84  calculated  with  the  flow  field 
program.  Trajectories  of  MER  Configurations  M6,  M5,  M4,  M2,  and  Ml  are 
presented  in  Figures  33,  34,  35,  36,  and  37,  respectively. 

Some  additional  build-up  configurations  have  their  flow  fields 
displayed-  clean  wing  in  Figures  4(a)  and  4(b),  wing/pylon  in  Figures 
5(a)  and  5(b),  wi ng/pylon/TER  in  Figures  6(a)  and  6(b),  and  wing/pylon/ 

MER  in  Figures  17(a)  to  17(e). 


82 


(Degrees  or  Feet) 


RIGHT  WING  LAUNCH 


Figure  31,  Pitch,  Yaw,  x,  and  z  Time  Histories  of  a  MK-84  Bomb 
Launch  from  the  Inboard  Pylon  at  M  =  0.85  Using  the  MK-84  Flow 
Field  at  that  Station 
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(Degrees  or  Feet) 


RIGHT  WING  LAUNCH 


Figure  32.  Pitch,  Yaw,  x,  y,  z  Time  Histories  of  a  MK-84  Bomb 
Launch  from  the  Outboard  Pylon  at  M  =  0.85  using  the  MK-84 
Flow  Field  at  that  Station 
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Figure  33,  Pitch.  Yaw.  x.  and  z  Time  Histories  of  an  M-117  Bomb 
Launched  from  the  Bottom  Back  Station  of  the  MER  at  M  =  0.85  Using 
the  Six  Bomb  Flow  Field 
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RIGHT  WING  LAUNCH 


Figure  34.  Pitch,  Yaw,  x,  and  z  Time  Histories  of  an  M-117  Bomb 
Launched  from  the  Bottom  Forward  MER  Station  at  H  =  0.85  Using  the 
Mve  Bomb  Flow  Field 
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RIGHT  WING  LAUNCH 


Figure  35,  Pitch,  Yaw,  x,  and 
the  Aft  Inboard  Shoulder  Stati 
Bomb  Flow  Field 


z  Translation  of  an  M-117  Bomb  from 
on  of  MER  at  M  =  0.85  Using  the  Four 
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(Degrees  or  Feet) 


RIGHT  WING  LAUNCH 


Figure  36.  Pitch, 
Bomb  Launched  from 
Using  the  Two  Bomb 


Yaw,  x,  and  z  Time  Histories  of  an  M-1I7 
the  Aft  Outboard  Shoulder  Station  at  M  =  0.85 
Flow  Field 
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Figure  37.  Pitch,  Yaw,  x,  and  z  Time  Histories  of  an  M-117  Bomb 
Launched  from  the  Forward  Outboard  Shoulder  Station  of  a  MLR  at 
M  =  0.85  Using  the  One  Bomb  Flow  Field 


90 


SECTION  III 


RESULTS 


As  a  result  of  the  second  flow  field  test-,  the  effects  of  the  approxi¬ 
mations  made  in  the  flow  angularity  technique  (Reference  1)  are  more  clearly 
defined.  The  use  of  the  scaled  flow  field  for  T3  configuration  on  a  TER 
for  calculating  trajectories  from  T2  and  T1  configurations  gives  good 
results;  however,  more  accurate  results  can  be  obtained  by  using  the  actual 
flow  field.  The  diameter  scaling  parameter  for  the  flow  field  produces 
good  results,  and  the  best  results  will  be  obtained  by  using  a  flow  field 
that  was  produced  by  a  store  close  to  the  diameter  of  the  one  being  simu¬ 
lated.  The  new  Mach  number  correction  which  comes  from  theoretical  calcu¬ 
lations  will  improve  the  programs  accuracy  at  low  Mach  numbers. 

With -the  additional  flow  field  data,  good  trajectories  can  now  be 
calculated  for  stores  of  large  diameter  launched  from  a  pylon  and  all  the 
MER  configurations. 
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APPENDIX  I 


PROGRAM  INTRODUCTION 


The  flow  angularity  technique  for  predicting  store  separation  trajec¬ 
tories  is  based  on  a  general  six-degree-of- freedom  digital  computer  program 
that  has  been  modified  to  accept  flow  field  data  and  build  the  interference 
aerodynamic  coefficients  as  explained  in  Reference  1.  Table  1-1  presents 
a  list  of  modules  used  in  the  simulation.  Differential  equations  are  formu¬ 
lated  in  state  variable  form,  where  derivatives  of  state  variables  are 
computed  in  the  appropriate  module.  Integration  is  accomplished  by 
executive  routines  after  each  pass  through  the  modules.  An  Adams-Moul ton 
(fourth-order)  integration  algorithm  with  Runga-Kutta  start,  is  employed 
with  a  fixed  integration  step  size  as  long  as  the  bomb  remains  in  the 
interference  flow  field.  After  the  bomb  is  free  of  the  interference  flow 
field,  the  integration  step  size  can  be  changed  for  the  rest  of  the  flight 
to  the  ground.  Executive  routines  monitor  input/output  which  permit  many 
trajectories  to  be  simulated  with  each  run.  A  table  look-up  routine  with 
linear  interpolation  between  data  points  is  used  to  extract  flow  field 
data  or  any  other  data  that  needs  to  be  entered  in  the  program  but  is  a 
function  of  one,  two,  or  three  variables.  A  plot  routine  that  is  designed 
for  the  4020  Stromberg/Carlson  plotter  will  permit  trajectory  plots. 

A  module  interconnection  diagram  is  presented  in  Figure  1-1  to  show 
how^the  different  modules  fit  together.  Figures  1-2  and  1-3  explain  the 
axis  systems  used  in  the  program. 

The  program  text,  definitions,  and  input  data  are  presented  in 
Appendixes  II,  III,  and  IV,  respectively .  Two  example  runs  are  displayed 
in  Appendixes  V  and  VI.  Example  1  consists  of  an  M-117  launched  from 
the  bottom  TER  station  at  M  =  .85  and  M  =  .5.  Example  2  is  a  MK-84  bomb 
dropped  from  the  outboard  pylon  at  M  =  .85,  and  a  MK-81  launched  from  t.he 
outboard  pylon  at  M  =  .5. 
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DYNAMICS 


Mx,My,Mz 


G4 

DDArnAM 

r  KuvaKnri 

TERMINATION 
AND 
IMPACT 
POINT 


J DIRECTION  COSINK” - — 

Figure  1-1,  Module  Interconnection  Diagram 
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xg5  y„,  zg  -  Earth  Axis  System 
x^5  y~.,  z.  -  Bomb  Body  Axis  System 
x. ,  y-p  z-|  -  Aircraft  Body  Axis  System 

RTXE,  RTYE,  RTZE  -  Origin  Coordinates  of  the  Aircraft  Body  Axis  System 

with  respect  to  the  Earth  Axis  System 

RXE,  RYE,  RZE  -  Origin  Coordinates  of  the  Bomb  Body  Axis  System  with  respect 
to  the  Earth  Axis  System  (Origin  at  bomb  C^) 


AIRCRAFT  AXIS 
(Time  Aj) 


AIRCRAFT/BOMB  AXIS 
COINCIDENTAL  AT 
ALTITUDE  (Time  -  0) 


All  Angles  measures  in  Euler  order  (Yaw,  Pitch,  Roll)  with  respect 
to  the  Earth  Axis  System 


Figure  1-2.  Axes  Systems  Definition 


BUTT  LINE  STATIONS  POSITIVE 
OUT  RIGHT  WING 


WATERLINE  STATIONS  NEGATIVE  DOWN 

(INTERFERENCE  COORDINATE  SYSTEM) 

XI NT  =  20%  FS 
YINT  =  20%  BL 
ZINT  =  20%  WL 


Figure  1-3.  Conversion  from  Aircraft  Coordinate  System  to 
Interference  Coordinate  System 
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TABLE  I -1.  PROGRAM  MODULES 


I.  GEOPHYSICAL  AND  EXTERNAL  ENVIRONMENT 

G2  -  Flow  field  table  look-up  to  determine  the  flow  angularities  at 
the  nose  and  tail  of  the  bomb. 

G3  -  Air  data ,  including  dynamic  pressure,  density,  speed  of  sound. 

G4  -  Terminal  Geometry,  computes  impact  point. 

G5  -  Transformation  of  position  and  velocity  between  various  coordinate 
systems. 


II.  AIRFRAME 

A1  -  Free  stream  aerodynamic  coefficients. 

A2  -  Aerodynamic  forces  and  movements,  in  bomb  body  axes. 

A3  -  Engine,  computes  thrust  as  well  as  c.g.  shifts  and  mass  changes  - 
including  table  look-up  for  thrust. 


III.  DYNAMICS 

D1  -  Translational  dynamics  of  bomb-accelerations  in  body  axes  are 

transformed  into  earth  coordinates  and  integrated  into  velocities 
and  positions. 

D2  -  Rotational  dynamics  of  bomb,  computes  rotational  accelerations 
and  velocities  referred  to  bomb  body  axes. 
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APPENDIX  II 


PROGRAM  TEXT 


1.  MAIN 

MAIN  is  the  central  executive  routine  of  the  entire  program.  MAIN 
calls  subroutine  ZERO  initially  then  sets  the  value  of  the  integration 
parameter  NPT.  MAIN  then  decides  by  REPPLT  whether  it  will  use  the  old 
and/or  new  type  4  and  7  cards  for  multiple  runs.  0INPT1  is  called,  and 
all  the  input  parameters  are  read  into  the  C  array.  LSTEP  is  set  equal 
to  STEP,  and  this  parameter  will  determine  whether  another  set  of  data 
exists  behind  the  present  set.  Next,  AUXI  is  called,  and  from  AUXI ,  all 
the  initialization  routines  are  called.  SUBL2  is  called  to  set  the 
printing  and  graphing  parameters.  The  VAR  and  DER  arrays  are  filled  from 
the  C  array  according  to  the  number  of  state  variables  found  in  the 
initialization  routines.  AUXSUB  is  called  next  to  find  the  derivatives 
of  all  the  state  variables  before  entering  the  integration  loop.  AMRK 
is  called  and  this  routine  integrates  all  the  derivatives  of  the  state 
variables,  and  then,  MAIN  places  the  new  values  of  the  state  variables 
back  into  the  C  array.  SUBL3  is  called  next  and,  in  turn,  calls  STAG3 
and  0UPT3.  STAG3  sets  KSTEP=2  if  it  is  time  to  terminate  the  trajectory, 
and  01JPT3  prints  the  variable  listed  on  the  type  4  cards  at  certain  time 
intervals.  If  it  is  not  time  to  terminate,  AMRK  is  called  again;  the 
program  starts  looping  between  AMRK,  MAIN,  and  SUBL3.  If  KSTEP  equals 

2,  the  program  leaves  the  integration  loop,  zeros  the  VAR  array,  and  calls 
RESET.  RESET  zeros  all  C  array  elements  that  need  zeroing.  If  LSTEP 
equals  2,  the  control  is  transferred  back  to  where  0INPT1  is  called  and 
the  process  starts  over.  If  LSTEP  equals  11,  the  program  will  exit.  If 
0PTIN10  is  greater  than  zero,  DUMPO  will  be  called  before  the  exit. 

2.  SUBROUTINE  ZERO 

ZERO  makes  sure  that  the  counters  which  count  the  numbers  of  the 
various  types  of  input  cards  and  the  number  of  points  to  be  plotted  are 
set  equal  to  zero. 

3.  01 NPT 1 

01 NPT I  reads  all  the  input  cards.  When  a  type  6  input  card  is  read, 
the  subroutine  returns.  It  also  prints  out  the  values  of  the  input  cards 
as  it  reads  them. 
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4.  AUXI 


AUXI  has  the  capability  of  calling  the  initialization  routine  >of 
any  regular  suoroutine.  The  type  2  cards  determine  which  subroutines 
will  be  used  in  the  program,  and  the  DUMMY  subroutine  has  entry  statements 
for  any  subroutine  that  does  not  need  an  initialization  routine. 

5.  A3! 

A3I  identifies  the  thrust  as  the  derivative  of  the  total  impulse 
ana  stores  the  C  storage  location  of  thrust  in  the  IPL  array. 

6.  Di  I 

Dll  identifies  the  derivative  of  the  state  variables  that  define  the 
position  of  the  bomb  and  aircraft  and  stores  the  value  of  their  C  storage 
location  in  the  IPL  array.  The  initial  velocity  of  the  store  is  set  by 
the  read-in  Mach  number  (VMACH)  and  RZE  displacement.  The  initial  locations 
of  store  and  aircraft  are  defined. 

7.  D2I 

D2I  is  the  rotational  dynamics  initialization  module.  The  derivatives 
of  the  elements  of  the  position  matrix,  the  pitch,  yaw,  and  roll  accelera¬ 
tions  are  defined  and  stored  in  the  IPL  array.  Also,  the  angular  rate 
derivatives  are  reset  to  zero. 

8.  SUBL2 

SUBL2  calls  staging  and  output  routines  according  to  the  values  placed 
on  the  type  1  cards. 

9.  STAG2 

STAG2  sets  KC0NV=0,  LC0NV=0,  KSTEP=1 . 

10. '  0UPT2 

0UPT2  updates  DOC  by  1,  and  if  that  value  is  less  than  7,  DUMPO  is 
called.  0UPT2  initializes  the  counters  needed  to  space  the  printing  on 
the  page.  It  also  stores  the  first  values  of  the  variables  to  be  plotted 
in  the  graph  array  and  initializes  0P0INT  equal  to  1. 

DTCNT  decides  how  many  lines  of  data  will  be  printed  each  time  0UPT3 
is  called. 
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1 1 .  AUXSUB 


AUXSUB  calls  the  regular  subroutines  according  to  the  value  on  the 
type  2  cards  in  columns  20  through  25. 

N0M0D  =  number  of  type  2  cards. 

XM00N0  or  MODNO  array  stores  the  value  on  columns  20  to  25  read  in 
E.15  format  from  the  type  2  cards. 

12.  G2 

G2  calculates  the  nose  and  tail  positions  of  the  bomb  in  the  inter¬ 
ference  flow  field  after  scaling  the  unit  length  of  the  flow  field  by 
the  ratio  of  DIASC.  The  values  of  the  flow  angularity  are  found  in  the 
tabular  data. 

The  angularity  at  the  tail  is  then  converted  into  a  cross-flow 
velocity  when  the  freestream  velocity  is  multiplied  by  the  angularity. 

These  cross-flow  velocities  VWXE,  VWYE,  and  VWZE  are  inputs  in  subroutine 
G3.  The  angularity  at  the  nose  minus  the  angularity  at  the  tail  is  then 
passed  on  to  A2  for  calculations  of  the  nose  moment  and  force  contribution. 

13.  G3 

G3  calculates  the  store  velocity  at  the  tail  with  respect  to  the  air 
mass  in  earth  axis  system.  It  also  sets  the  speed  of  sound,  Mach  number, 
and  density  for  the  calculated  altitude. 

14.  G5 

G5  calculates  pitch,  yaw,  and  roll  angles  in  degrees  and  their 
associated  derivatives.  It  then  calculates  a  total  velocity  of  the  store 
with  respect  to  earth  axis  system  (VTOTE)  and  the  distance  the  store  has 
moved  from  its  initial  position  (RANGO).  The  velocity  of  the  store  with 
respect  to  the  air  mass  in  body  axes  are  calculated,  and  from  these 
velocities,  the  angles  of  attack  and  side  slip  are  cal cul ated . 

15.  A1 

A1  calculates  the  moment  and  force  coefficients  CX,  CY ,  CZ,  CM,  and 
CL  from  input  parameters  CAA,  CNAA,  and  CMAA  which  are  Ca,  CN  ,  and  CM  , 
respectively.  The  wind  tunnel  angle  of  attack  and  roll  angleaare  usedato 
position  the  store  with  respect  to  the  free  stream  velocity  rather  than 
the  angle  of  attack  and  side  slip  angles.  These  coefficients,  however,  do 
not  include  the  nose  correction  yet. 
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16  A2 


A2  makes  the  corrections  to  the  moment  and  force  correction  due  to 
the  flow  field  at  the  nose  having  a  different  angularity  than  the  tail. 
These  aerodvanmic  coefficients  are  then  transferred  to  body  forces  and 
moments.  Ejector  forces  and  moments  are  then  combined  with  the  aero¬ 
dynamic  forces  and  moments  to  give  the  resultant  values.  The  ejector 
forces  and  moments  last  over  either  an  ejector  force  time  (EFT)  or  an 
ejector  stroke  distance  (EJD).  When  the  time  is  greater  than  EFT  or  the 
distance  traveled  is  greater  than  EJD,  the  ejector  force  and  moment 
become  zero. 


This  routine  has  an  option  for  a  rail  launched  missile.  Until  the 
missile  leaves  the  rail,  it  is  restricted  to  move  only  in  the  X  direction. 
The  lug  loads  are  calculated  during  that  time.  If  no  rail  launch  is 
desired,  make  0PTN4  =  2  and  RAIL  =  RLUG  =  0.  Any  forces  and  moments 
found  due  to  a  thrusting  motor  are  also  added  to  the  total  forces  and 
moments . 

17.  A3 

A3  calculates  the  thrust  and  thrust  misalignment  effects.  It  also 
calculates  any  c.g.  and  IXX,  IYY,  and  IZZ  changes  due  to  burning  the 
propellant.  If  no  thrust  exists,  the  thrust  values  in  the  table  look-up 
must  be  zero.  If  rio  thrust  exists,  the  specific  impulse  (ISP)  must  be 
read  in  as  1 . 

18.  D1 

D1  is  the  translational  dynamics  module  that  transfers  the  forces 
calculated  in  A2  into  body  accelerations  in  body  axis  and  then  transfers 
then  into  earth  axis.  The  gravity  term  is  added  to  the  verticle  accelera¬ 
tion,  and  the  velocity  is  defined  as  the  integral  of  the  acceleration  and 
the  derivative  of  the  position.  Also,  the  aircraft  velocity  is  integrated 
to  find  its  position. 

19.  D2 

D2  is  the  rotational  dynamics  module  that  calculates  the  body  angular 
rates  and  the  derivatives  of  elements  of  the  position  matrix. 

20.  AMRK 

AMRK  is  the  integration  subroutine.  This  routine  under  usual  operation 
does  three  Runge-Kutta  integrations  and  then  uses  the  Adams-Moul ton  pre¬ 
dictor  corrector  until  completion.  The  variable  NPT  is  set  equal  to  2  at 
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the  beginning  of  the  program  unless  RKITTTA  is  set  equal  to  1 .  On  cominq 
into  AMRK  with  NPf  equal  to  2,  KOUNT  is  set  equal  to  0,  and  NPT  is  set 
equal  to  ZERO.  Each  time  through  AMRK,  COUNTE  is  updated  by  1  until 
COUNTE  equals  3,  at  which  time  AMRK  switches  from  Runga-Kutta  to  Adams- 
Moulton 

The  Runge-Kutta  integration  calls  AUXSUB  four  times,  and  the  Adams- 
Moulton  predictor  corrector  calls  AUXSUB  twice. 

If  RKUTTA  is  set  equal  to  1,  NPT  is  set  equal  to  one  and  Runge-Kutta 
integration  is  used  all  the  time. 

21 .  STAG3 

STAGS  calls  G4  which  determines  whether  ground  impact  has  occurred. 

If  impact  has  occurred,  LCONV  will  be  equal  to  2.  STAG3  also  determines 
whether  TF,  which  is  the  maximum  trajectory  time  that  is  read  as  an  input, 
has  been  exceeded  by  T.  If  either  condition  has  been  met,  one  more  inte¬ 
gration  is  performed  with  DER( 1 ) =0 .  Then  0UPT3  is  called  to  write  the 
results  of  the  last  integration,  and  the  KSTEP  is  equal  to  2.  KSTEP.  equal 
to  2  eventually  terminates  the  integration  in  MAIN. 

22.  G4 

G4  calculates  the  distance  the  impact  point  is  from  the  origin  of 
the  earth  axis  system  by  determining  when  RZE  becomes  positive  and  then 
interpolating  between  that  position  and  the  position  of  the  store  at  its 
previously  calculated  position.  The  miss  distances  X,  Y,  Z,  and  T  are 
printed  from  this  subroutine. 

23.  0UPT3 

0UPT3  checks  to  see  if  the  computer  ITCNT  is  less  than  7  and,  if  so, 
DUMPO  is  called.  The  main  purpose  of  0UPT3  is  printing  the  value  of  the 
variables  listed  on  the  type  4  cards  and  their  alphanumeric  names.  PCNT 
is  updated  by  CPP  which  is  the  time  interval  between  printing.  0UPT3  also 
stores  the  values  of  the  variables  to  be  plotted  in  the  GRAPH  array  (these 
are  variables  input  by  type  7  cards).  PPNT  is  updated  by  PPP  which  is  the 
time  interval  between  saving  points  to  be  plotted.  If  a  DUMPO  has 
occurred,  PGCNT  will  equal  1,  and  the  printing  format  is  adjusted  by 
printing  the  variable  names  at  the  top  of  the  next  page.  PGCNT  counts  the 
number  of  lines  that  have  been  printed,  and  when  PGCNT  equals  or  is  qreater 
than  112,  the  new  heading  is  printed  and  PGCNT  is  reinitialized  by  the 
number  of  lines  that  were  used  for  the  heading  print  out.  OPOINT  counts 
the  number  of  times  that  data  is  stored  in  the  graph  array. 
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24.  DUMPO 


DUMPO  prints  all  values  stored  in  the  C  array  9  to  a  line  with  a 
counter  in  the  first  5  columns. 

25.  DUMMY 

This  subroutine  contains  entry  statements  that  are  used  if  a  sub¬ 
routine  is  called  and  is  net  present  in  the  program.  If  the  subroutine 
is  present  in  the  program*  the  appropriate  entry  statement  in  DUMMY 
should  be  -removed  or  preferably  a  C  placed  in  Column  1  of  that  card 
turning  that  entry  into  a  comment  card. 


105 


APPENDIX  Ill 

NOMENCLATURE  DEFINITION 


L.  EXECUTIVE  ROUTINES 


Variable  Reset  To  C  Storage  Variable's.  "Input 
Name  Zero  Location  Dimension 


Definition 


PL0TN4 


PLDTN2 


— 

YES 

1972 

YES 

1974 

YES 

1975 

NO 

1982 

NO 

1983 

NO 

1985 

NO 

20  00 

] 

If  RUNGE -KUTTA  integration  desired  ex¬ 
clusively;  RKUTTA=1;  otherwise,  RKUTTA=0. 


Controls  integration. 


Number  of  variables  plotted  by  type  4 
graph  routine . 


Number  of  variables  plotted  by  type  2 
graph  routine . 


Array  containing  C  storage  location  of 
variables  to  be  plotted. 


Time  (initially  zero) 


Def init ion 


Maximum  allowable  trajectory  time  before  Hie 

program  shuts  itself  off. 

The  value  of  time  at  which  the  next 
print  out  will  occur. 

The  updated  plotting  time. 

Plotting  time  is  updated  by  adding  PPP 
to  the  last  plotting  time. 

0.  Use  new  type  4  and  7  cards^and  dis¬ 
card  old  • 

1.  Use  old  plus  those  added  type  4aarid 
7  cards. 

-1.  Use  new  type  7  cards  and  discard  old. 
Number  of  last  plotting  points  deleted. 
Total  number  of  variables  to  be  plotted. 
Integer  value  of  PLOTNO. 


Variable 
N  ame 

Reset  to 
Zero 

C  storage 
Locat ion 

Variable ' s 
Dimension 

Input 

STEP 

NO 

2010 

1 

YES 

KSTEF 

YES 

2011 

1 

NO 

LSTEP 

NO 

2012 

1 

NO 

DOC 

NO 

2013 

1 

YES 

ITCNT 

YES 

2014 

1 

NO 

CPP 

NO 

2015 

1 

YES 

1 

PGCNT 


YES 


2016 


1 


NO 


STEP=2,  another  set  of  data  behind  this 
set  . 

STEP  =  11  .  last  set  of  data. 


Flag  set  to  take  the  program  out  of  the 
integration  loop  after  G4  decides  the 
bomb  has  contacted  the  ground.  KSTEP=2 
at  this  time. 


Integer  value  of  STEP 


Counter  for  DUMPO.  DOC  >_  6 ,  C  array  not 
printed.  DOC  <  6,  C  array  printed. 


Counter  that  counts  iteration  so  DUMPO 
can  be  called.  (If  ITCNT  >  6  DUMPO  will 
not  be  called) 


Value  that  upoates  PCNT  after  each  print 


A  counter  that  automatically  counts  the 
lines  of  data  printed  on  an  output  page 
When  PGCNT  is  greater  than  or  equal  to 


Variable  Reset  to  C  storage  Variable’s 

Name  Zero  Location  Dimension  .  Input  Definition 


j 

1 

112,  a  flag  is  set  so  that  headings  will 
be  printed  at  the  top  of  the  next  page. 

DTCNT 

YES 

2017 

1 

NO 

1 

| 

A  counter  that  is  automatically  set  dur¬ 
ing  operation  subroutine  0UPT2  to  the 
required  number  of  lines  of  numerical 
data  per  print  out.  DTCNT  is  used  in 

operational  subroutine  0UTP3  to  deter¬ 
mine  when  headings  should  be  printed 
on  each  output  page. 

OPOINT 

NO 

2023 

1 

NO 

Number  of  points  to  be  plotted  for  each 
variable.  It  is  a  counter. 

TIME 

NO 

2025 

300 

NO 

Storage  array  containing  the  times  cur¬ 
ing  trajectory  that  variable  values  will 
be  saved  for  plotting. 

.  . . . . . . 

VLABLE 

NO 

2  325 

(2,15) 

NO 

Array  containing  alphanumeric  names  of 
variables  to  be  plotted. 

IR  ( I ) 

YES 

2355 

2 

YES 

Value  on  columns  1  and  2  of  input  cards. 
Determines  card  type .  ■  ■  • 

VR(1) 

VRC2) 

YES 

2357 

2 

YES 

Value  on  columns  31-45  on  type  3  cards. 
Value  on  columns  46-61  on  type  3  cards. 

Vari abl a 
Name 

Reset  to 
Zero 

C  storage 
Location 

Variable's 

Dimension 

Input 

Definition 

NOMOD 

NO 

2361 

99 

NO 

The  number  of  modules  to  be  processed. 

NOSUB 

NO 

2461 

1 

NO 

Number  of  "type  1  cards  . 

SUBHO 

NO 

2462 

99 

NO 

Storage  values  on  type  1  cards  (columns 
21-25) 

N 

NO 

2561 

1 

NO 

Number  of  state  variables  as  counted  in 
the  initialization  subroutines. 

IPL 

YES 

2562 

101 

NO 

Storage  array  for  the  C  i  locations  of 
all  the  derivatives  of  the  state  vari¬ 
ables  . 

DE?. 

YES 

2664 

101 

NO 

Storage  array  for  the  derivative  of 
the  state  variables. 

VA? 

YES 

296  5 

101 

NO 

Storage  array  for  values  of  all  state 
variables . 

NOLIST 

NO 

3066 

1 

NO 

Number  of  type  3  cards  to  be  reset. 

If  VR(2)  equal  1  the  variable  Is  reset. 

LI  ST NO 

no 

3067 

50 

1 

I 

NO 

Storage  array  of  the  C  storage  loca¬ 
tions  of  variables  on  type  3  cards  that 
need  to  be  reset. 

Variable  Reset  to  C  storage  Variable's 
Name _ Zero _  Location  Dimension 


VALUE 

NO 

3117 

50 

OUTNO 


NO 


3168 


50 


Input  ,  Definition 

NO 

NO  I  Storage  array  for  the  locations  of 


Storage  array  of  the  values  of  the 
variables  that  will  be  reset. 


variables  on  type  4  cards. 


2  G2 


Variable 

N  ame 

Reset  to 
Zero 

Cstorage 

Location 

Variable ' s 
Dimension 

Input 

Def init ion 

COUNTE 

YES 

42 

1 

YES 

C0UNTE=2.  No  flow  angularity  calculated. 
C0UNTE=0.  Flow  angularity  calculated. 

ZLUN 

YES 

44 

1 

NO 

ZINT  coordinate  of  the  store  for  table 
look  up  in  the  flow  angularity  table, 
(inch  ) 

XLUN 

1 

YES 

1 

45 

1 

NO 

XINT  coordinate  of  the  nose  of  the  store 
for  table  look  up  in  the  flow  angularity 
t  able . ( inch ) 

PWY3 

YES 

46 

1 

NO 

Flow  angularity  in  the  XINT,  YINT  plane 
at  the  store  nose  after  all  scaling. 

( rad  ) 

OPTNW 

NO 

50 

1 

YES 

0=No  interference  flow  field. 

1= Interference  flow  field. 

XPOS 

NO 

54 

1 

YES 

FS  position  of  the  C.g.for  the  store  be¬ 
ing  launched  (FT) 

■1TW  -  ■ 

Variable 

flame 

Reset  to 
Zero 

Variable's 

Dimension 

Input 

Defi  ni  tion 

ypos 

NO 

55 

1 

YES 

BL  position  of  the  C.g.for  the  store 
being  launched  (FT) 

ZPOS 

NO 

56 

1 

YES 

WL  position  of  the  C.g.for  the  store 
being  launched  (FT) 

XTAIL 

NO 

57 

l 

YES 

Length  from  store  C.g  to  tail  6£  store 
being  launched  (FT;  usually  negative) 

TNOSOS 

NO 

5  8 

l 

; 

YES 

Scale  factor  used  to  adjust  the  flow 
field  if  the  three  store  flow  field  is 
used  for  other  configurations. 

"[},  store  on  TER  TN0S0S  =  5 

2.  Stores  on  TER  TN0S0S=3 

3.  Stores  on  TER  TN0S0S=1 

All  other  configurations  ThOSOS=l . 

XNOSE 

NO 

59 

i 

YES 

Length  from  store  C.g. to  nose  of  the 
store  used  to  generate  the  flow  field. 

AAN 

YES 

60 

l 

NO 

Fl<bw  angularity  at  the  nose  minus  flow 
angularity  at  the  tail  after  all  scal¬ 
ing  in  the  XINT,  YINT  plane  (rad) 

A  SN 

YES 

61 

l 

■ 

Flow  angularity  at  nose  minus  flow  an¬ 
gularity  at  the  tail  after  all  scaling 
in  the  XINT,  YINT  plane  (rad) 

Variable 


Reset  to  C  storage  Variable's 
Ze^o  Location  Dimension 


Input 


DELZ  YES  72  1 


NO 


X NOS  El 


NO 


3 


1 


YES 


,  Definition 


Flow  angularity  at  the  nose  in  the  XINT, 
ZINT  plane  before  scaling, 

Flow  angularity  at  the  nose  in  the  XINT, 
YINT  plane  before  scaling, 

XINTcoordinate  of  the  nose  of  the  store 
for  table  lookup  in  the  flow  angularity 
t  able  . 


Ratio  of  the  diameter  of  the  store  used  to 
generate  the  flow  field  and  the  diameter  of 
the  store  being  launched. 

Store.  RXE  position  minus  aircraft  RTXE 


\ 


Variable  Reset  to  C  storage  Variable's 

Name  Zero _ _  _  Location  Dimension 

XNPOS  ""  YES  "  Ty* 

YNPOS  YES  91  1 

ZNPOS  YES  92  1 


XTPOS  YES  93  1 

YTPOS  YES  94  1 


Input 

NO 

NO 

NO 


NO 

NO 


ZTpOS 

YES 

VWXE 

YES 

VWYE 

YES 

VWZE 

YES 

-  PPP1 

NO 

Definition  _  _ _  __ 

Positions  of  the  nose  of  the  ut:oro 
calculated  during  the  trajectory. 


Positions  of  the  tail  of  the  store 
calculated  during  the  trajectory. 


Cross  wind  components  at  tail,  due  to 
the  interference  flow  field, 


Value  of  PPP  desired  after  store  leaves 
the  interference  flow  field. 


Value  of  CPP  desired  after  store  leaves 
the  interference  flow  field. 


Integration  Step  size  desired  after  the 
store  leaves  the  interference  flow 
field  . 


The  upper  limits  of  the  values  of  XINT, 

YINT  and  ZINT  that  define  the  inter¬ 
ference  flow  field  control  volume  (model  inch). 


Van  ab1  a 
Name 

Reset  to 
_Zgr 0 

C  storage 
Location 

Variable's 

Dimension 

Input 

Definition 

XLL 

NO 

124 

l 

YES 

The  lower  limits  of  the  values  of  XINT, 

YLL 

NO 

126 

l 

YES 

YINT,  and  ZINT  that  defines  the  inter- 

ZLL 

NO 

128 

l 

YES 

ference  flow  field  control  volume(model  i 

3.  G3 


Variable  Reset  to  C  Storage  Variable's  Input  Definition 

Name _ Zero  Location  Dimension 


VMWXE 

VM  WYE 
VMWZE 

YES 

YES 

YES 

200 

201 

202 

1 

1 

1 

■ 

Store  velocity  WRT  the  air  mass  in 
earth  axis  system  with  a  tail  inter¬ 
ference  velocity  correction  included. 

PDYNMC 

YES 

203 

1 

NO 

Dynamic  pressure, 

VMACH 

YES 

2  04 

1 

YES 

Initial  and  updated  Mach  number. 

^  DRHO 

YES 

205 

1 

NO 

Standard  atmosphere  density  at  the 
calculated  altitude. 

VSOUND 

YES 

206 

1 

NO 

Velocity  of  sound  at  the  calculated 
alt  it  ude , 

VAIRSP 

YES 

207 

.  . . .  ...  - 

1 

NO 

Calculated  airspeed  of  store  WFT  the  air 
mass  including  the  interference  flow 
field  velocity 

RW 

YES 

209 

1 

NO 

Calculated  altitude 

Variable 

Reset  to 
Zero 

C  Storage 
Location 

Variable’s 

Dimension 

Input 

De  f in  it  ion 

RMISS 

YES 

N/A 

N/A 

NO 

Distance  of  impact  point  from  the 
origin  of  the  earth  axis  system.. 

TZERO 

YES 

N/A 

N/A 

NO 

Time  of  impact. 

RDX 

YES 

N/A 

N/A 

NO 

Xe  ,  Ye,  Ze  components  of  distance  that. 

RE  : 

YES 

N/A 

N/A 

NO 

locate  the  impact  point  from  the  ori- 

-< - • 

YES 

N/A 

N/A 

NO 

gin  of  the  earth  axis  system. 

5.  G5 


V  ari ab le 

Reset  to 
Zero 

C  Storage 
Locat ion 

Variable  '  s 
Dimension 

Input 

Def init ion 

BTHT 

YES 

350 

1 

NO 

Euler  pitch,  yaw  and  roll  angles  of 

BPSI 

YES 

351 

1 

NO 

store  V7RT  earth  axis  system- 

BPH I 

YES 

352 

1 

NO 

BTHTD 

YES 

353 

1 

NO 

Derivatives  of  Euler  pitch,  yaw, 

BPSID 

YES 

354 

1 

NO 

and  roll  angles . 

BPHID 

YES 

355 

1 

NO 

VTOTE 

YES 

356 

1 

NO 

Total  velocity  of  store  with  respecr  zo 
the  earth  axis  system. 

—  J 

S  VMWU 

YES 

360 

1 

NO 

Velocity  components  of  store  with  res- 

VMWV 

YES 

361 

1 

NO 

pect  to  air  in  body  axis  system. 

VMWW 

YES 

362 

1 

NO 

BALPHA 

YES 

367 

1 

NO 

Angle  of  attack  of  store. 

BALPAY 

YES 

368 

1 

NO 

Angle  of  side  slip  of  store  , 

BALPHP 

YES 

369 

1 

NO 

Angle  of  attack  of  store  in  wind  tur.r.el 
axis  system. 

BPHIP 

YES 

370 

1 

NO 

Roll  angle  in  wind  tunnel  axis  system. 

Variable  Reset  to  C  storage  Variable's 

Name  __  Zero  Location  Dimension _  Input  Definition 


ftANGO 

YES 

380 

1 

NO 

Distance  of  the  store  from  launch  point 
in  the  earth  axis  system. 

ALPHAO 

YES 

381 

1 

YES 

Initial  angle  attack  of  aircraft. 

VARIABLE 

NAME 

RESET  TO 
ZERO 

C  STORAGE 
LOCATION 

VARIABLE ' S 
DIMENSION 

INPUT 

DEFINT ION 

CM  AA 

YES 

1272 

1 

YES 

CMa 

CNA 

YES 

1273 

1 

YES 

CNa 

CAA 

YES 

1274 

1 

YES 

CA 

CL  2 

YES 

i 

1240 

1 

NO 

Cl 

CX 

YES 

1203 

1 

NO 

(body  axis)  axial  force  coefficient 

CY 

YES 

:  1204 

1 

NO 

(body  axis)  side  force  coefficient. 

CZ 

YES 

1205 

1 

NO 

_ 

(body  axis)  normal  force  coefficient. 

CM 

YES 

1210 

1 

NO 

(body  axis)  pitching  moment  coefficient 

CN 

YES 

1211 

1 

NO 

(body  axis)  yawing  moment  coefficient 

CMQ 

NO 

1207 

1 

YES 

Pitch  damping  coefficient. 

Variable 

Name 

Reset  to 
Zero 

C  storage 
Location 

Variable's 

Dimension 

Input 

Definition 

CNR 

NO 

1208 

j 

1 

> 

l 

YES 

Yaw  damping  coefficient- 

CLP 

NO 

1206 

l 

YES 

i 

Roll  damping  coefficient. 

CL 

YES 

1209 

l 

NO 

Rolling  moment  coefficient  in  body 
axi  s 

ro 

ro 
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"h.  kl 


VARIABLE 

NAME 

RESET  TO 
ZERO 

C  STORAGE 
LOCATION 

VARIABLE ' S 
DIMENSION 

INPUT 

DEFIN IT  ION 

RF  ARE A 

NO 

1306 

1 

YES 

Cross  sectional  area  of  store,,;  (max  ,) 

RFLGTH 

NO 

1307 

1 

YES 

Diameter  at  maximum  cross  section  of 
st  ore . 

RLUG 

NO 

1316 

1 

YES 

For  rail  launch  only;  distance  between 
lugs 

RAIL 

NO 

1317 

1 

YES 

Rail  length  between  front  lug  and  end 
of  rail 

0PTN4 

NO 

3504 

1 

YES 

If  OPTN^i 4  =  0^  no  rail  launch. 

If  ,QPTN  4>0  ,  can  be  rail  launch. Of 

•  RAIL  or  RLUG>0.:. 

FXBA 

YES 

1300 

1 

NO 

Combination  of  aerodynamic  and  ejector 

FYBA 

YES 

1301 

1 

NO 

forces  on  the  store. 

FZBA 

r 

YES 

1302 

1 

NO 

FMXBA 

YES 

1303 

1 

NO 

Combination  of  aerodynamic  and  ejector 

FMYBA 

YES 

1304 

1 

NO 

moments  on  store. 

FMZBA  ,  , 

YES 

1305 

1  . 

NO 

Variable 

Name 

Reset  to 
Zero 

C  storage  Variable's 
Location  Dimension 

Input 

Definition 

'VmXI’H 

YES' 

1320 

1 

i  — — — 

|  NO 

Moments  caused  by  thrust  misalignments. 

FMYTH 

YES 

1321 

1 

NO 

FMZTH 

YES 

1322 

1 

NO 

FMXLUG 

YES 

1323 

1 

NO 

Moments  for  store  transferred  to  the  .1 

FMYLUG 

YES 

1324 

1 

NO 

lugs  . 

FMZLUG 

YES 

1325 

1 

NO 

EFT 

NO 

1332 

1 

YES 

Ejector  force  action  time. 

EJD 

YES 

1333 

1 

YES 

Ejector  stroke  length. 

ro 

EFORCX 

NO 

1326 

1 

YES 

Ejector  forces  in  earth  axis  system. 

EFORCY 

NO 

1327 

1 

YES 

EFORCZ 

NO 

1328 

1 

YES 

EMOMX 

NO 

1329 

1 

YES 

Ejector  moments  in  earth  axis. 

EMOMY 

NO 

1330 

1 

YES 

EMOMZ 

NO 

1331 

1 

YES 

8.  A3 


r 


VARIABLE 

NAME 

RESET  TO 
ZERO 

C  STORAGE 
LOCATION 

VARIABLE ' S 
DIMENSION 

INPUT 

DEFINITION 

BALPHT 

NO 

1401 

1 

YES 

Angle  between  the  thrust  vector  and 

X  body  axis . 

BPHIT 

NO 

1402 

1 

YES 

Angle  between  the  thrust  vector  pro¬ 
jected  into  the  Yb,ZB  plane  and  the 

Zg  axis 

QNALGN 

NO 

1403 

1 

YES 

QNALGN  >  0  include  thrust  misalignment 
angles 

PCFTH 

NO 

1404 

1 

YES 

Fractional  increase  in  total  impulse 

CISP 

NO 

1414 

1 

■ 

Specific  impulse  (  sec)  must  be  greater 
than  zero 

DWT 

^  - 

NO 

1415 

1 

YES 

Total  store  and  propellant  weight. 

DWP 

NO 

1416 

1 

YES 

Total  propellant  weighty 

RDCGO 

NO 

1417 

1 

YES 

Launch  value  of  C.g. 

VARIABLE  RESET  TO  C  storage  VARIABLE'S 

NAME  ZERO  r  Location  ,  DIMENSION  INPUT  DEFINITION 


unriL 

RDCGF 

LLI\U  r 

NO 

1418 

YES 

Final  C.g.positon- 

FMIXO 

NO 

1419 

! 

YES 

Initial  moments  of  inertia , 

FMIYO 

NO 

1420 

1 

YES 

1 

RLCGO 

NO 

1421 

1 

YES 

Launch  value  of  C.g. 

RDELCG 

YES 

1308 

1 

NO 

C.g. shift  at  each  time- 

DWP 

YES 

1409 

1 

NO 

Weight  of  propellant  used  , 

FTHRST 

YES 

1410 

1 

NO 

Thrust  value  read  in  table. 

FTHX 

YES 

1411 

1 

NO 

Thrust  in  body  axis  system  because 

fTHY 

YES 

1412 

1 

NO 

of  thrust  alignment. 

FT  HZ 

YES 

1413 

1 

NO 

RLCG 

YES 

1422 

1 

NO 

C.g. location  at  each  time. 

DMASS 

YES 

1628 

1 

NO 

Mass  of  store  and  propellant. 

DTI 


VARIABLE 

NAME 

RE.SET  TO 
ZERO 

' C  STORAGE 
•LOCATION 

VARIABLE ' S 
DIMENSION 

INPUT 

DEFINIT ION 

VTARG 

YES 

1643 

1 

NO 

Aircraft  total  velocity, 

RXO 

YES 

1668 

1 

NO 

Initial  position  of  store  WRT  earth  - 

RYO 

YES 

1669 

1 

NO 

axis  system. 

RZO 

YES 

1670 

. . 1 

1 

NO 

10.  D1 

VARIABLE  . 

NAME 

RESET  TO 
|ZER0 

C  STORAGE 
LOCATION 

VARIABLE'S 

DIMENSION 

INPUT 

DEFINITION 

AGRAV 

NO 

1627 

1 

YES 

Gravity 

.. 

VXED 

YES 

1600 

1 

NO 

Three  components  of  velocity  and 

VXE 

YES 

1603 

1 

NO 

accelerations  of  the  store  with  res- 

V  YED 

YES 

1604 

1 

NO 

pect  to  the  earth  axis  system, 

V  YE 

YES 

1607 

1 

NO 

VZED 

YES 

1608 

1 

NO 

VZE 

YES 

1611 

1 

NO 

RXED 

YES 

1612 

1 

NO 

Three  components  of  position  and  velo- 

RXE 

NO 

1615 

1 

YES 

city  of  the  store  WRT  -the  earth  axis 

RYED 

YES 

1616 

1 

NO 

sy st  em , 

RYE 

NO 

i  1619 

1 

YES 

RZED 

YES 

1620 

1 

NO 

RZE 

NO 

1623 

a _ 

1 

YES 

128 


VARIABLE 

RESET  TO 

C  STORAGE 

VARIABLE'S 

NAME 

ZERO 

LOCATION 

DIMENSION 

INPUT 

DEFINITION 

RTXED 

NO 

1648 

1 

NO 

Three  components  of  position  and 

RTXE 

NO 

1651 

1 

YES 

velocity  of  the  aircraft  WRT  earth 

RTYED 

NO 

1652 

1 

NO 

axis  system. 

RT  YE 

NO 

1655 

1 

YES 

RTZED 

NO 

1656 

1 

NO 

RTZE 

NO 

1659 

1 

YES 

I 

VTXE 

NO 

1660 

1 

NO 

Three  components  of  velocity  of  air- 

VT  YE 

NO 

1661 

1 

NO 

craft  WRT  earth  axis  system. 

VTZE 

NO 

1662 

1 

NO 

AX  BA 

NO 

1624 

1 

NO 

Three  components  of  acceleration  of 

AYBA 

NO 

1625 

1 

NO 

the  store  WRT  the  body  axis  system, 

AZ  BA 

NO 

1626 

1 

NO 

VDELX 

NO 

1632 

1 

NO 

The  separation  velocity  of  the  store 

VDELY 

NO 

1633 

1 

NO 

from  the  aircraft  WRT  earth  axis  sys- 

VDELZ 

NO 

1634 

1 

NO 

t  em 

RDELX 

NO 

—  1 

1 

The  separation  distance  of  the  store 

RDELY 

NO 

1 

NO 

from  the  aircraft  WRT  earth  axis 

RDELZ 

NO 

1677 

1 

system . 

DELX 

70 

1 

NO 

Separation  distance  of  the  aircraft 

DELY 

NO 

71 

1 

NO 

from  the  store  WRT  earth  axis  system. 

DELZ 

72 

1 

NO 

n.  D2i 


VARIABLE 

RESET  TO 

C  STORAGE  VARIABLE'S 

INPUT 

DEFINITION 

NAME 

ZERO 

LOCATION 

DIMENSION 

BPHIO 

NO 

M 

1 

YES 

Euler  angles  that  located  the  body 

BTHTO 

YES 

lufiBHi 

1 

YES 

axis  at  time  T  =  0  from  the  earth 

BPSIO 

YES 

E 

1 

YES 

axis  system. 

12.  D2 

— - - — - 

■VARIABLE 

RESET  TCI 

C  STORAGE 

VARIABLE  SS 

NAME 

ZERO 

LOCATION 

DIMENSION 

INPUT 

DEFINITION 

TOT 

NO 

1751 

1 

YES 

57.3 

OPTN3 

NO 

3504 

1 

YES 

0PTNS>0  roll  acceleration  is  locked  to 

zero  . 

CFA110 

YES 

1700 

1 

NO 

Elements  and  their  derivative  of  the 

CFA11 

YES 

1703 

1 

NO 

matrix  that  orients  the  body  axis  WRT 

CFA12D 

YES 

1704 

1 

NO 

the  earth  axis  system. 

CFA12 

YES 

1707 

1 

NO 

CFA13D 

YES 

1708 

1 

NO 

CFA13 

YES 

1711 

1 

NO 

CFA21D 

YES 

1712 

1 

NO 

CFA21 

YES 

1715 

1 

NO 

CFA22D 

YES 

1716 

1 

NO 

CFA22 

YES 

1719 

1 

NO 

CFA23D 

IES 

1720 

1 

NO 

CFA23 

YES 

1723 

1 

■NO 

CFA31D 

YES 

1724 

1 

NO 

C  FA  3 1 

YES 

1727 

1 

NO 

VARIABLE 

NAME 

RESET  TO 
ZERO 

C  STORAGE 
LOCATION 

VARIABLE'S 

DIMENSION 

INPUT 

DEFINITION 

CFA32D 

YES 

17  2  8 

1 

Elements  and  their  derivatives  of  the  e 

CFA32 

YES 

1731 

1 

matrix  that  orients  the  body  axis  WRT 

C  r  A  3  3  D 

YES 

17  32 

1 

the  earth  axis  system 

3  r  A  3  3 

YES 

1735 

1 

YES 

! 

1736 

1 

NO 

Roll,  pitch  and  ya^ 

'f%  r 

NO 

1739 

1 

YES 

Euler  angle  velocities  and  accelerations 

yn  t> 

YES 

1740 

1 

NO 

«  2 

NO 

1743 

1 

YES 

»N  Kl 

YES 

1744 

1 

NO 

v’i  r. 

NO 

1747 

1 

'  - - 

YES 

co 

o 


APPENDIX  IV 


INPUT  DATA 


1.  TYPE  I  CARDS  (See  Figure  IV-1) 

Type  1  cards  determine  which  output  and  staging  subroutines  will  be 
called.  The  value  located  in  columns  20  to  25.(15  Format)  is  the  deter¬ 
mining  factor.  Unoer  normal  operation  there  should  be  the  following 
type  1  cards : 

Column  2  Columns  9  to  15  Column  25 

1  OUPT  2,3  3 

1  STAG  2,3  4 

These  two  cards  will  allow  SUBL2  to  call  STAG2  and  0UPT2  and  SUBL3  to 
call  STAG3  and  0UPT3. 

2.  TYPE  2  CARDS  (See  Figure  IV-1) 

Type  2  cards  determine  which  regular  or  functional  subroutines  are 
called  and  the  order  of  calling.  The  value  located  in  columns  20  to  25 
(15  Format)  is  the  determining  factor.  Under* normal  operation,  there 
should  be  the  following  type  2  cards. 

(Right-Hand  Justified) 

Column  2  Columns  9  to  15  Columns  20  to  25 


2 

G2 

23 

2 

G3 

24 

2 

G5 

26 

2 

A1 

2 

2 

A3 

4 

2 

A2 

3 

2 

D1 

17 

2 

D2 

18 

These  type  2  cards  will  allow  subroutines  AUXI  and  AUXSUB  to  call  sub¬ 
routines  G2,  G3,  G5,  A1 ,  A3,  A2,  D1 ,  D2  in  consecutive  order. 

3.  TYPE  3  CARDS  (See  Figure  IV-1) 

Type  3  cards  can  initialize  any  variable  found  in  the  C  array.  To 
keep  the  input  list  short  and  simple,  the  core  of  the  computer  should  be 
cleared  to  zero  by  a  control  card;  or  a  loop  that  zeros  the  entire  C  array 
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DESCRIPTION 
COLUMN  NO. 

FORMAT 


TYPE 

2 

/ 

VARIABLE 
3  9 

NAME 

20 

/ 

C  LOCATION 
21  25 

/ 

f  VARIABLE'S 
VALUE 

31  45 

( 

RESET  FLAG 

46  60 

/ 

A 

A6 

A6 

A6 

15 

5X 

El  5 .9 

El  5 . 9 

i 

XX 

XX 

XX 

XXXXX 

BLANK 

BLANK 

2 

XX 

XX 

XX 

xxxxx 

BLANK 

BLANK 

3 

XX 

XX 

XX 

XXXXX 

XXXXX 

OPTIONAL 

4 

-- 

XX 

XX 

xxxx 

BLANK 

BLANK 

7 

-- 

XX 

XX 

xxxx 

BLANK 

BLANK 

6 

BLANK 

BLANK 

BLANK 

BLANK 

Figure  IV-1 .  Format  for  Input  Cards 
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should  be  inserted  at  the  beginning  of  the  program.  This  will  initialize 
all  variables  to  zero  and  only  non-zero  variables  will  have  to  be  read 
in  by  type  3  cards.  An  exception  to  this  occurs  for  multiple  runs.  Any 
input  variable  that  is  initially  zero,  but  has  its  value  calculated  during 
the  trajectory  and  is  not  set  to  zero  in  RESET  SUBROUTINE,  must  be  either 
read  in  initially  as  zero  and  have  the  reset  parameter  1.  punched  in 
columns  46  through  61  or  be  read  in  as  zero  for  each  run  after  the  first. 
The  reset  parameter  allows  the  initial  value  of  the  variable  to  be  stored 
in  the  VALUE  array,  and  at  the  end  of  each  run,  the  parameters  are  reini¬ 
tialized  to  the  initial  value. 


For  normal 

operation,  the 

following  type  3 

cards  should  be 

i ncl uded 

(See  Figure 

IV-1) 

Col  umns 

Columns 

Columns 

Col umns 

Column  2 

9  to  15 

20  to  25 

31  to  45 

46  to  6' 

3 

TF 

2001 

_ _ 

3 

T 

2000 

0. 

1. 

3 

REPPLT 

2006 

1 . 

0. 

3 

PPP 

2005 

— 

o. 

3 

CPP 

2015 

.1 

— 

3 

DOC 

2013 

6. 

i . 

3 

DER  (1) 

2664 

.002 

0. 

3 

0PTN4 

3502 

0. 

0. 

3 

AGRAV 

1627 

32.174 

0. 

3 

CRAD 

1751 

57.29577 

0. 

3 

WP 

1739 

0. 

1. 

3 

WQ 

1743 

0. 

1 . 

3 

WR 

1747 

0. 

1. 

3 

RXE 

1615 

0. 

1 . 

3 

RYE 

1619 

0. 

1. 

3 

RZE 

1623 

1 . 

3 

RTXE 

1651 

0. 

1. 

3 

RTYE 

1655 

0. 

1. 

3 

RTZE 

1659 

— 

— 

3 

EFORCX 

1326 

— 

0. 

3 

EFORCY 

1327 

— 

0. 

3 

EFORCZ 

1328 

0. 

3 

EMOMX 

1329 

— 

0. 

3 

EMOMY 

1330 

-- 

0. 

3 

EMOMZ 

1331 

0. 

3 

EFT 

1332 

— 

0. 

3 

EJD 

1333 

-- 

— 

3 

VMACH 

204 

— 

— 

3 

CAA 

1274 

— 

— 

3 

CNAA 

1273 

— 

— 

3 

CMAA 

1272 

— 

— 
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C^C^OJC^WOJCOCOCOCOCOCOCaJCaJCOOJCOCOCOCOCoOO 


Column  2 


Col umns 
9  to  15 


Columns 
20  to  25 


Col  umns 
31  to  45 


Columns 
46  to  61 


CMQ 

1207 

-- 

0 

CNR 

1208 

-- 

0 

CLP 

1206 

0 

ALRHAO 

381 

- 

DIASC 

69 

— 

_ 

TN0S0S 

58 

- 

OPTNW 

50 

1  . 

1 . 

FMIYO 

1419 

0 

FMIYO 

1420 

0 

XTAIL 

57 

-4 . 

0. 

XNOSE 

59 

2.17 

0 

XN0SE1 

73 

-- 

1 . 

RFLGTH 

1307 

0 

RFAREA 

1306 

-- 

0. 

DWT 

1415 

0 

DWP 

1416 

1  . 

0 

CISP 

1414 

1. 

0 

XINTER 

1252 

-1  .0 

1 . 

STEP 

2010 

- 

XPOS 

54 

-- 

- 

YPOS 

55 

-- 

- 

ZPOS 

56 

-- 

- 

OTHER  POSSIBLE  INPUTS 

0PTN10 

2022 

PTLESS 

2007 

RKUTTA 

1972 

COUNTE 

42 

RLUG 

1316 

RAIL 

1317 

BALPHT 

1401 

BPHIT 

1402 

QNALGN 

1403 

PCFTH 

1404 

RDCGO 

1417 

RDCGF 

1418 

BPHIO 

1752 

BPHTO 

1753 

BPSIO 

1754 

0PTN3 

3504 

PL0TN2 

1983 

PL0TN4 

1982 

PLOTNO 

2008 
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dimensional  variables 


1 ength  =  ft 

r.,2 

area  =  ft 
weight  =  lb 

2 

moment  of  inertia  =  slug  -  ft 
angles  =  degrees 

4.  TYPE  4  CARDS  (See  Figure  IV-1) 

Type  4  cards  control  the  variables  which  have  values  that  are  printed 
out  at  regular  periods  of  time  (CPP).  The  variables  are  printed  five  per 
line  in  the  order  in  which  these  cards  appear  in  the  deck.  The  label 
appearing  in  columns  9  to  20  is  used  as  a  header  regardless  of  the  "Program 
Name"  of  the  variable.  The  C  storage  location  of  the  variable  appears  in 
columns  21  to  25.  A  maximum  of  50  such  cards  are  allowed. 

5.  TYPE  7  CARDS  (See  Figure  IV-1) 

Type  7  cards  control  the  variables  to  be  plotted  using  the  SC4020 
microfilm  plotter  (hard  copy).  Labels  and  identification  are  the  same 
as  type  4  cards.  If  four  variables  are  to  be  plotted  such  as  (RXE,  RZE, 
RTXE,  RTZE),  then  they  are  set  up  on  type  7  cards  and  PL0TN4  is  set  to  4. 
The  variables  on  the  first  and  third  type  7  cards  lie  on  the  abiscissa 
and  the  second  and  fourth  on  the  ordinate.  PL0TN4  can  be  set  to  0;  in 
which  case,  the  program  will  expect  the  first  type  7  card  to  be  a  PL0TN2 
vari ety . 

PL0TN2  is  another  full  page  plot  option  available  for  plotting  one 
or  more  variables  (ordinates)  versus  a  single  variable  (abscissa).  The 
program  variable  "PL0TN2"  is  set  to  the  number  of  variables  involved  and 
the  type  7  cards  are  placed  directly  after  the  seven  cards  that  defined 
the  PL0TN4  variables.  The  remaining  variables  are  plotted  three  to  a 
frame,  versus  time,  where  the  variable  PL0TN0  must  equal  the  total  number 
of  type  7  cards  or  plotted  variables  (15  maximum).  The  plotting  interval 
in  seconds  is  controlled  by  the  input  data  parameter  PPP.  The  total  number 
of  plotting  points  for  each  variable  must  be  less  than  300. 
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6.  CARD  ORDER  FOR  MULTIPLE  RUNS 


RUN  1 

RUN  2 

RUN  3 


TYPE  1 
TYPE  2 
TYPE  3 
TYPE  4 
TYPE  7 
TYPE  6 

TYPE  3 
TYPE  6 

TYPE  3 
TYPE  6 

ETC. 
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APPENDIX  V 


EXAMPLE  1 


The  first  example  is  a  multiple  run  that  simulates  the  trajectory  of 
an  M- 117  bomb  from  the  bottom  station  of  the  triple  ejector  rack  (T3) . 

The  flow  field  data  used  in  simulating  the  trajectories  were  collected 
in  the  presence  of  M-117  bombs  in  configuration  T3  at  M=.85  and  angle  of 
attack  =  0.3.  The  first  trajectory  occurs  at  M=.85  and  angle  =  0.3  degree. 
All  the  scale  factors  are  1..  The  second  launch  occurs  at  M=.5.  The 
ejector  force  is  1200  pounds  and  acts  until  the  bomb  is  0.255  foot  down 
from  its  initial  position.  The  trajectory  is  allowed  to  run  for  only  1 
second . 
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EXAMPLE  I .  PROGRAM  TEXT 


PROGRAM 


SIX  D 


CDC  6600  FT N  V3.0-P304  QPT=1  30 


10 


15 


20 


25 


30 


35 


40 


45 


50 


55 


C 
C 


PROGRAM  SIXO(INPUT,OUTPUT,TAPE5=INPUT,TAPE6=OUTPUT,FILMPL) 
♦CIMOOS  TO  BE  USED  WITH  FORTRAN  AMRK  INTEGRATION  ROUTINE 


1002 

1003 

1004 

1005 


60 

1006 


1000 

1001 


COMMON  C (35 1 0 )  , 

EQUIVALENCE  ( C ( 2 662 ) , HMIN  ) 

C  (C(2561),N  ) 

C  (C(2000) » T  ) 

C  (C (2012) ,LSTEP  ) 

C  (C(2023) ,OPOINT) 

C  (C(3167) , NOOUT  ) 

C  (C(2865),EU  ) 

EQUIVALENCE 
EQUIVALENCE 
DIMENSION 
DIMENSION 
DIMENSION 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
INTEGER  OPOINT 
INTEGER  OPT 
EXTERNAL  AUXSUB 
NPT  =  2 

CALL  COUNTV 
CALL  ZERO 
NPT  =  2 

IF(PLOTNO.LE.O.)  GO  TO 
IF(REPPLT.GT.Q.)G0T07 


(C (1973) ,KASE  ) 
GRAPH (300, 15) 
VLABLE (2,15) 
VAR(lOl) 

(C(1980) ,RN  ) 
(C(1981) ,RNT  ) 
( C ( 1982 ) , PL0TN4) 
( C ( 19 8 3)  , PL OT N2 ) 
(C (1984) ,NPLOT  ) 


GRAPH 
(C  ( 
(C  ( 
(C( 
(C( 
(C  ( 
(C  ( 
(C  ( 
(C( 
(C  ( 
TIM 
IPL 
EL  ( 


2663)  , 
2562)  , 
2011)  , 
2008)  , 
2025), 
2022)  , 
2765) , 
1971)  , 
1974)  , 
E(3  00) 
(100) 
100) 


HM  AX  ) 
IPL  ) 
KSTEP  ) 
PLOTNO) 
TIME  ) 
OPTNIO) 
EL  ) 
RITE  ) 
NJ  ) 


TEMPS ( 1000 
,  ( C ( 2664) 
(C (2965) 
(C(2010) 
( C ( 20  09 ) 
( C ( 2325) 
(C (2006) 
( C ( 20  07) 
(C (1972) 
(C (1975) 


) 

,DER  ), 
,  VAR  ), 
,  STEP  ), 
, NOPLOT) , 
,  VLABLE) , 
,REPPLT)  , 
, PTL  ESS) 
,RKUTT  A) 

,  NPT  ) 


,  OER(lOl) 
,  EU(100) 


REPPLT  =  0.  USE  NEW  NO. 4, 7  (DISCARD  OLD) 
1.  USE  OLD  PLUS  THOSE  ADDED 
-1.  USE  NEW  NO.  7  (DISCARD  OLD) 


IF  (REPPLT. GT .-1.0)  NOOUT 

NPLOT=0 

CALL  OINPT1 

KASE=0 

IF(RKUTTA.GT.O.O)  NPT=1 

LSTEP  =  STEP 

NPL0T4=PL0TN4 

NPLOT2=PLOTN2 

NOPL  OT  =  PL  OTNO 

CONTINUE 

CALL  AUXI 

CALL  SUBL2 

DO  60  I  =  2 , N 

J  =  IPL(I-l) 

EL ( 1-1 ) =C ( J+l ) 
EU(I-i)=C(J+2> 

VAR(I)  =  C ( J+3 ) 

DER(I)  =  C(J) 

VAR ( 1 )  =  T 
CALL  AUXSUB 


=  0 
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PROGRAM 


SI  XD 


CDC  6600  FT N  V3.0-P304  OPT=l  30 


60 


65 


70 


75 


80 


85 


1007  NJ=N-1 

CALL  AMRK(AUXSUB) 

10  0  8  DO  50  I  =2,  N 
J  =  IPL(I-l) 

50  C ( J+3)  =  VAR(I) 

T  =  VAR ( IT 
1009  CALL  SUBL3 

IF  (  KSTEP  .  EQ .  1  )  GO  TO  1007 
00  155  JV=2,N 
155  VAR(JV>=0. 

CALL  RESET 

IF(LSTEP.EQ.5.OR.LSTEP.EQ.7.OR.NOPLOT.EQ.0)GOTO5 
CALL  TIMEV(OELT) 

WRITE (6, 96) OELT 

96  FORMAT ( 1H  , 17HST ART  PLOTTING  ATF14.7) 

LESSPT=PTLESS 

OPOINT=OPOINT-LESSPT 

CALL  PL0T4(GRAPH,0P0lNT,VLABLE,TIME,NPL0T4,NPL0T2, NOPLOT) 

CALL  PLOT2 (GRAPH, OPOINT, VL ABLE, TIME, NPL0T4,NPL OT 2, NOPLOT) 

CALL  PLOTN( GRAPH,OPO IN T,VLABLE, TIME, NPL0T4,NPL0T 2, NOPLOT) 

CALL  TIMEV(OELT) 

WRITE(6,97)DELT 

97  FORMAT ( 1H  ,1BHPL0TTING  ENDED  AT  F14.7) 

IF< (RMT.GT.0.1  .ANO.  RN . EQ . RNT ) . AND .  LSTEP.EQ. 2)GO  TO  70 
5  GO  TO  (1000,1001,1002,1003,1004,1005,1006,1007,1008,1009,1010), 
1  LSTEP 

1010  IF ( OPTN 10 • GT . 0 . )  CALL  DUMPO 
70  CALL  S8 
CALL  EXIT 

PNn 
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BLOCK  DATA  CCL 2 


CDC  6600  FTN  V3.0-P304  OPT=l  3 


BLOCK  DATA  CCL2 
C0MM0N/NCL2/NCL2  (4) 

/CL  2  ARG/ A  LP ( 7 ) , AM<5) 
/CL2FUN/CL2 (35) 


5 

DATA 

NCL2/7,5,0,Q/ 

DATA 

ALP/0 

.,  4.,  8., 

12.,  16., 

20. ,50 

DATA 

AM/0  . 

,  •  6  ,  .  9 , 

1.1,  1.4/ 

DATA 

CL2  / 

*  o., 

.05, 

•05,  .05, 

.05,  .05, 

.05, 

10 

*  0., 

.05, 

.05,  .05, 

.05,  .05, 

.05, 

*  0., 

.05, 

. 05 ,  .05, 

-.1,  -.05, 

-.05, 

*  0., 

.05, 

.10,  0.,  — 

.15 ,  -.4 , 

-.6, 

*  0., 

.05, 

.1,  -.05, 

-.2  ,  -.55 

,  -.8/ 

END 
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BLOCK  DATA  CXOO 


CDC  6600  FT N  V3.0-P304  OPT  =  l  3 


BLOCK  OATA  CXOO 
COMMON  /NCXO/NCXO  (2) 
/CX0ARG/AMC8) 
/CXOFUN/CXO { 8) 


5 

OATA 

NCXO/8 

,0/ 

OATA 

AM/ 0  . , 

.75,  .85,  .95,  1.,  1.1,  1.2,  1.4/ 

DATA 

CXO/ 

*  .06, 

.074, 

.074,  .14,  .14,  .14,  .14,  .14/ 

END 
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BLOCK  DATA  THST  COC  6600  FTN  V3.0-P304  OPT  =  l  3 

BLOCK  DATA  THST 
COMMON/NTH/NTH  (2) 

*  /TH ARG/T  H A { 13 ) 

*  /THFUN/THF (13 ) 

5  DATA  NTH/13,0/ 

OATA  THA/ 

*0.0,  .03, .16,  .4,  .56,  .72,  .8,  1.6,  2.4,  4.,  4.8,  5.6,  100./ 

OATA  THF / 

*0.,0. , 0 • , 0 • ,0. ,0. ,0.  ,0.  ,0.,0.  ,0.  ,  0  • ,  0  •  / 

10  END 
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BLOCK  DATA  VZC 


C DC  6600  FTN  V3.0-P304  OPT=l  30 


5 


10 


15 


20 


25 


30 


35 


40 


45 


50 


BLOCK  DATA  VZC 
COMMON/NVZ/NVZ(3) 

/VZARG/YLOP ( 7 ) , ZL0P(9) ,XLOPtlO) 

/VZFUN/VZ1 (63) ,VZ2(63) , VZ3(63) ,VZ4(63) ,VZ5(63)  ,VZ6 (6  3)  ,VZ7  (63) 


* 

, VZ8 ( 63) , VZ9 (63 ) ,VZ10(63) 

DATA  NVZ/7,9,10/ 

DATA  YL0P/1.,2.,3.,4.,5.,6.,7./ 
DATA  ZLOP/1. ,2. ,3. ,4. ,5. ,6.  ,7., 
DATA  XLOP/9., 10. ,11. ,12. ,13. ,14 
DATA  VZ1/ 

8. ,9./ 

.  ,15. ,16. ,17. ,20./ 

c 

-.010, 

-.085,  -.159,  .025, 

.001, 

.002,  .003, 

c 

-.028, 

-.045,  -.039,  -.025, 

-.012, 

—  .003,  — .  001, 

c 

-.025, 

-.029,  -.028,  -.022, 

-.012, 

-.007,  -.005, 

c 

-.020  , 

—  .022,  — .023,  — .018, 

-.014, 

-.008,  -.004, 

c 

-.017, 

-.019,  -.019,  -.017, 

-. 012, 

—  .005,  — .002, 

c 

-.014, 

-.017,  -.016,  -.015, 

-.  009  , 

—  .003,  — .001, 

c 

-.011, 

-.012,  -.012,  -.011, 

-.  006, 

-.002,  -.001, 

c 

-.009, 

—.008,  —.008,  -.007, 

-.005, 

-.001,  -.002, 

c 

-.005, 
DATA  VZ2/ 

-.006,  -.005,  -.005, 

-.004, 

.000,  -.001/ 

c 

.026, 

.035,  .045,  .026, 

.Oil, 

.009,  .007, 

c 

-.002, 

-.013  ,  -.019,  -.026, 

-.010  , 

-.002,  -.000, 

c 

-.012, 

-.018,  -.024,  -.025, 

-.017, 

-.010,  -.007, 

c 

-.015, 

-.019,  -.024,  -.023, 

-.019, 

-.011,  -.006, 

c 

-.015, 

-.018,  -.021,  -.020, 

-.016, 

-.008,  -.004, 

c 

-.013, 

-.016,  -.017,  -.016, 

-.011, 

-.005,  — .002, 

c 

-.010, 

— .012,  -.013,  — .012, 

-.  007, 

— .003,  — .002, 

c 

-.008, 

—.008,  —.008,  —.008, 

-.  00  6, 

-.001,  -.002, 

c 

-.004, 
DATA  VZ3/ 

-.006,  -.005,  -.005, 

-.  004  , 

.000,  -.001/ 

c 

.024, 

.068,  .111,  — .130, 

.  024, 

.017,  .010, 

c 

-.004, 

— .021,  — .063,  — .130, 

-.051, 

—  .012,  — .003, 

c 

-.016, 

— .031,  — .061,  — .083, 

-. 054, 

-.025,  -.012, 

c 

-.017, 

-.028,  -.041,  -.046, 

-.  038, 

-.022,  -.011, 

c 

-.016, 

-.022,  -.028,  -.030, 

-.024, 

—  .014,  — .007, 

c 

—.013, 

— .018,  — .020,  — .020, 

-.  015, 

-.007,  -.004, 

c 

-.010, 

-.013,  -.013,  -.013, 

-.  009, 

—  .004,  — .002, 

c 

-.008, 

—  .00  8  ,  — .008,  — .008, 

-.006, 

-.002,  -.002, 

c 

-.004, 
DATA  VZ4/ 

—.005,  —.004,  -.005, 

-.  004, 

.000,  -.001/ 

c 

.006, 

.036,  .066,  -.254, 

.  028, 

.019,  .010, 

c 

-.013, 

-.036,  -.138,  -.254, 

-.113  , 

-.021,  -.004, 

c 

-.021, 

-.044,  -.100,  -.145, 

-.  089, 

-.033,  -.014, 

c 

-.020 , 

-.033,  -.052,  -.061, 

-.046, 

-.026,  -.012, 

c 

-.016, 

— .023,  — .030,  — .033, 

-.026, 

-.014,  -.006, 

c 

-.012, 

-.017,  -.019,  -.020, 

-.014, 

—  .006,  — .003, 

c 

-.008, 

-.011,  -.012,  -.012, 

-.007, 

—  .003,  — .001, 

c 

-.006, 

—  .006,  — .007,  — .006, 

-.  004, 

—  .000,  — .001, 

c 

-.  002, 
DATA  VZ5/ 

—  .004,  — .003,  — .003, 

-.002, 

.002,  .000/ 

c 

-.002, 

-.011,  -.021,  -.022, 

-.022, 

-.010,  .002, 

c 

-.014, 

-.032,  -.019,  -.022, 

.012, 

-.011,  -.003, 

c 

-.015, 

— .024,  — .031,  — .020, 

-.017, 

—  .009,  — .005, 

c 

—.013, 

-.017,  -.021,  -.018, 

-.015, 

—  .007  ,  — .003, 

c 

-.010, 

— .013,  — .015,  — .013, 

-.010, 

—  .003,  .000, 
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BLOCK  DATA  VZC 


COC  6600  FTN  V3.0-P304  OPT=l 


3C 


C 

-.007, 

-.010, 

-.010  , 

-.009, 

-.005, 

.  000  , 

.002, 

C 

-.005, 

-.006, 

-.006, 

-.006, 

-.002, 

.  002  , 

.002  , 

C 

—.003, 

—.003, 

-.003, 

-.002, 

-.001, 

.  003, 

.  002, 

C 

.  0  00  , 

-.001, 

-.000, 

-.000, 

.  00  0  , 

.  004, 

.002/ 

60 

DATA  VZ6/ 

C 

.001, 

-.031, 

-.063, 

.089, 

-.060  , 

—.034, 

-.007, 

C 

-.006, 

-.018, 

.016, 

.089, 

.  045, 

-.005, 

-.002, 

C 

-.004, 

-.  000  , 

.  020, 

.  048, 

.029, 

.010, 

.001, 

C 

-.002, 

.002, 

.010, 

.017, 

.  014, 

.  003, 

.  005, 

65 

C 

-.002, 

-.  0  00  , 

.  003, 

.006, 

.  00  6, 

.008  , 

.  00  7, 

C 

-.001, 

-.002, 

.  00  0  , 

.001, 

.  004, 

.  008, 

.  007, 

C 

-.000, 

-.001, 

.  000, 

.001, 

.  004, 

.  007, 

.  006, 

C 

.0  00  , 

.001, 

.002, 

.  002, 

.  003, 

.006  , 

.  005, 

c 

.002, 

.  002  , 

.00  3, 

.  002, 

.  003, 

.006  , 

.004/ 

70 

DATA  VZ7/ 

c 

.005, 

-.027, 

-.059, 

.  075, 

-.063, 

-.039, 

-.014, 

c 

-.001, 

-.012, 

.000  , 

.075, 

.029, 

-.007, 

-.004, 

c 

.001, 

.  005, 

.025, 

.045, 

.032, 

.011 , 

.002, 

c 

.00  3, 

.  008  , 

.016, 

.022, 

.018, 

.012, 

.  008, 

75 

c 

.  00  3, 

.  006, 

.  009, 

.  Oil, 

.011, 

.012, 

.  010, 

c 

.00  3, 

.003, 

.005, 

.  006, 

.  009, 

.011, 

.010, 

c 

.003, 

.003  , 

.005, 

.  005, 

.  00  8, 

.010  , 

.008  , 

c 

.00  3, 

.  004, 

.005, 

.005, 

.006, 

.009, 

.007, 

c 

.  005, 

.  0  04, 

.  006, 

.  005, 

.  006, 

.  009, 

.  006/ 

80 

DATA  VZ8  / 

C 

.  00  0  , 

-.028, 

-.056, 

.061, 

-.046, 

-.034, 

-.021  , 

C 

-.001, 

-.009, 

.  000  , 

.061, 

.  020  , 

-.006, 

-.006, 

C 

.002, 

.  005, 

.020, 

.  038, 

.  027, 

.009, 

.001, 

C 

.005, 

.  008, 

.014, 

.  020  , 

.  016, 

.012, 

.  007, 

85 

C 

.00  5, 

.0  07  , 

.010, 

.012, 

.012, 

.013, 

.011, 

C 

.005, 

.005, 

.  007  , 

.008, 

.010, 

.013, 

.Oil, 

C 

.005, 

.  006, 

.  006, 

.  007, 

.010, 

.012, 

.  010  , 

C 

.005, 

.006, 

.  007  , 

.  00  7, 

.  008, 

.  Oil, 

.  008, 

C 

.007, 

.006, 

.007, 

.  007, 

.  007  , 

.010  , 

.  008/ 

90 

OATA  VZ9/ 

C 

-.003, 

-.020 , 

-.038, 

.042, 

-.030, 

-.026, 

-.022, 

c 

.001, 

-.004, 

-.000, 

.  042, 

.016, 

-.005, 

-.006, 

c 

.00  4, 

.0  06, 

.015, 

.  028, 

.021, 

.  008  , 

.001, 

c 

.006, 

.  009, 

.013, 

.017, 

.014, 

.012, 

.008, 

95 

c 

.007, 

.  0  0  8  , 

.010, 

.011, 

.  Oil, 

.014, 

.012, 

c 

.007, 

.007, 

.008, 

.  009, 

.011, 

.014, 

.012, 

c 

.00  7, 

.  007  , 

.008, 

.  008, 

.011  , 

.013, 

.011, 

c 

.007, 

.  008  , 

.  00  8  , 

.009, 

.  009, 

.012, 

.010, 

c 

.008, 

.  008, 

.009, 

.  00  8, 

.009, 

.011, 

.  009/ 

100 

DATA  VZ107. 

C 

.004, 

.003, 

.002, 

.039, 

-.014, 

-.014, 

-.014, 

C 

.007, 

.0  06  , 

.009, 

.039, 

.019, 

.  000  , 

-.002, 

C 

.008, 

.010, 

.016, 

.  027, 

.021, 

.011, 

.  004, 

C 

.010, 

.012, 

.014, 

.018, 

.015, 

.013, 

.010, 

105 

C 

.010, 

.010  , 

.011, 

.012, 

.012, 

.015, 

.013, 

C 

.  009, 

.  009, 

.  .010, 

.010, 

.012, 

.  015, 

.014, 

C 

.009, 

.  009, 

.009, 

.  009, 

.  012, 

.  014, 

.012, 

C 

.008, 

.009, 

.010  , 

.010, 

.010, 

.013, 

.011, 

C 

.010  , 

.009, 

.  010  , 

.  009, 

.010  , 

.013, 

,010/ 

110 


END 
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BLOCK  OflTA  VYC 
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5 


10 


15 


20 


25 


30 


35 


40 


45 


50 


* 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


BLOCK  DATA  VYC 
COMMON/NVY/NVY (3) 

/VYARG/YLOP ( 7) ,ZLOP(9),XLOP(10) 

/VYFUN/VY1 (63) ,VY2(63),VY3(63),VY4(63>,VY5<63>,VY6<63),VY7<63> 
, VY8(63) *  V Y9 ( 63 ) ,VY10 (63) 

DATA  NVY/7,9,10/ 


DATA  YLOP/1 
DATA  ZLOP/1 

. ,  2  . ,  3 
. ,  2  . ,  3 

.  ,  4.  ,  5  . 
•  , 4. ,5. 

>  6  •  j  7  •  / 

1 6*  »  7 • 9  8 

•  9  9  •  / 

DATA  XLOP/9 

.,10., 

11. ,12. 

,15. ,16. 

,  17. , 

20./ 

DATA  VY1/ 

-.043, 

-.023, 

.016, 

.027, 

.039, 

.035, 

.032, 

-.018, 

-.004, 

.024, 

.028, 

.032, 

.033, 

.  030, 

-.007, 

-.000, 

.011, 

.019, 

.025, 

.023, 

.022, 

-.003, 

.002  , 

.00  7, 

.012, 

.013, 

.015, 

.018, 

.000  , 

.  002, 

.005, 

.  008, 

.  Oil , 

.014, 

.017, 

-.003, 

.  000  , 

.  004, 

.008, 

.  Oil, 

.013, 

.014, 

-.004, 

.  000  , 

.  004, 

.  007, 

.010, 

.011 , 

.011, 

-.003, 

-.001 , 

.003, 

.  006, 

.008, 

.008, 

.009, 

-.003, 

.  0G0, 

.  002, 

.004, 

.006, 

.006, 

.  008/ 

DATA  VYH/ 

-.017, 

-.043, 

-.096, 

-.026, 

.044, 

.039, 

.037, 

-.022, 

-.019, 

.  000, 

.017, 

.034, 

.039, 

.  035, 

-.014, 

-.011, 

-.001, 

.013, 

.026, 

.028, 

.026, 

-.008, 

-.005, 

.  001, 

.009, 

.014, 

.013, 

.  020  , 

-.003, 

-.002, 

.002, 

.006, 

.011, 

.015, 

.018, 

-.005, 

-.002, 

.002, 

.00  7, 

.011, 

.013, 

.014, 

-.005, 

-.001, 

.003, 

.  007, 

.010  , 

.011, 

.011, 

-.003, 

-.001, 

.002, 

.006, 

.007, 

.  008, 

.  009, 

-.003, 

-.000, 

.002, 

.  003, 

.005, 

.006, 

.008/ 

DATA  VY3/ 

-.029, 

-.085, 

-.196, 

-.036, 

.125, 

.076, 

.051, 

-.038, 

-.058, 

-.072, 

.015, 

.10  3, 

.073, 

.050  , 

-.026, 

-.032, 

-.026, 

.014, 

.051, 

.  047, 

.036, 

-.015, 

-.014, 

-.007, 

.  009, 

.022, 

.026, 

.025, 

-.006, 

-.005, 

-.001, 

.006, 

.  013, 

.018, 

.  020  , 

-.007, 

-.003, 

.001, 

.006, 

.012, 

.014, 

.015, 

-.006, 

-.002, 

.002, 

.006, 

.010, 

.011, 

.011, 

-.004, 

-.002, 

.002, 

.005, 

.007, 

.  008, 

.  009, 

-.003, 

-.000, 

.001, 

.  003, 

.005, 

.  G  0  6  , 

.  007/ 

DATA  VY4/ 

-.040, 

-.102, 

-.227, 

-.014, 

.200, 

.105, 

.058, 

-.046, 

-.084, 

-.211, 

.  003, 

.227, 

.099, 

.055, 

-.030, 

-.043, 

-.048, 

.014, 

.071, 

.  057, 

.038, 

-.016, 

-.017, 

-.011, 

.009, 

.025, 

.027, 

.025, 

-.007, 

-.006, 

-.002, 

.005, 

.013, 

.017, 

.019, 

-.006, 

-.003, 

.001, 

.006, 

.011, 

.013, 

.013, 

-.005, 

-.002, 

.001, 

.005, 

.  009, 

.010  , 

.010  , 

-.004, 

-.002, 

.001, 

.  005, 

.  006, 

.007, 

.008  , 

-.003, 

-.000, 

.001, 

.003, 

.  005, 

.005  , 

.  007/ 

DATA  VY5/ 

-.022, 

-.041  , 

-.079, 

-.004, 

.  071, 

.047, 

.035, 

-.024, 

-.027, 

.049, 

.Oil, 

-.027, 

.  030, 

.029, 

-.013, 

-.011, 

-.000, 

.015, 

.021, 

.021 , 

.019, 

-.006, 

-.004, 

.002, 

.007, 

.010, 

.011, 

.013, 

-.001, 

-  •  0  0 1  f  •  0  0  2  > 
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.  004, 

.  007, 

.  009, 

.012, 

55 


BLOCK  DATA  VYC 


CDC  6600  FTN  V3.0-P304  OPT=l 


C 

—.003, 

-  .001, 

.001, 

.  004, 

.  00  7  , 

.  009, 

.010, 

C 

-.003, 

-.001, 

.002  , 

.004, 

.00  7  , 

.  008  , 

.008  , 

C 

-.003, 

-.001, 

.001, 

.  004, 

.  005, 

.006, 

.  006, 

C 

-.003, 

.  0  00  , 

.001, 

.  003, 

.  004, 

.  005, 

.  006/ 

60 

DATA  VY6/ 

C 

.006, 

.028, 

.071, 

.  026, 

-.019, 

.004, 

.  .016, 

C 

.002, 

.021, 

.119, 

.012, 

-.096, 

-.016, 

.007, 

C 

.006, 

.016, 

.031, 

.  Oil, 

— . 013, 

-.008, 

.001, 

c 

.005, 

.0  09, 

.012, 

.  006, 

-.  003  , 

-.004, 

.  002, 

65 

c 

.005, 

.0  06  , 

.  00  5, 

.  003, 

.001, 

.002, 

.005, 

c 

.001, 

.002  , 

.  003  , 

.004, 

.005, 

.  005, 

.  005, 

c 

-.001, 

.  001 , 

.003, 

.  005, 

.006, 

.006, 

.  005, 

c 

-.001, 

-.  0  00  , 

.002, 

.005, 

.  005, 

.005, 

.  004, 

c 

-.002, 

.  001 , 

.002, 

.003, 

.003, 

.004, 

.004/ 

70 

DATA  VY7/ 

c 

.017, 

.0  39, 

.082, 

.017, 

-.047, 

-.008, 

.012, 

c 

.010  , 

.  023, 

.103, 

.  007, 

-.  ose, 

-.021, 

.001, 

c 

.012, 

.020  , 

.032, 

.007, 

-.016, 

-.014, 

-.005, 

c 

.009, 

.013, 

.013, 

.  005, 

-.007, 

-.009, 

-.003, 

75 

c 

.00  8, 

.  0  0  8  , 

.007, 

.  002, 

-.002, 

-.002, 

.001, 

c 

.00  3, 

.003, 

.004  , 

.  004, 

.  003  , 

.  003, 

.  003, 

c 

.001  , 

.002  , 

.004  , 

.  005, 

.  005  , 

.004  , 

.  003  , 

c 

.0  0  0  , 

.001, 

.003, 

.004, 

.  004, 

.  004, 

.003, 

c 

-.001, 

.  002, 

.003, 

.  003, 

.  003, 

.  003  , 

.  004/ 

80 

OATA  VY8/ 

C 

.018, 

.034, 

.068, 

.  00  7, 

-.054, 

-.012, 

.009, 

C 

.009, 

.018  , 

.  078, 

.  005, 

-.067, 

-.019, 

.  00  0  , 

C 

.011, 

.017, 

.  026, 

.  007, 

-.014, 

-.014, 

-.006, 

C 

.009, 

.012, 

.011, 

.003, 

-.007, 

-.009, 

-.004, 

85 

c 

.  008  , 

.  007  , 

.  005, 

.001, 

-.003, 

—.003, 

-.  000  , 

c 

.00  3, 

.003, 

.004, 

.003, 

.  002  , 

.001, 

.001, 

c 

.001, 

.  002, 

.  003, 

.  004, 

.  004, 

.  003, 

.  002  , 

c 

.  0  0  0  , 

.001, 

.003, 

.  004, 

.  003, 

.  003, 

.  002, 

c 

-.001, 

.001  , 

.002, 

.  002, 

.  00  2, 

.002  , 

.003/ 

90 

OATA  VY9/ 

c 

.017, 

.033, 

.065, 

.016, 

-. 032, 

-.008, 

.  003, 

c 

.  006, 

.012, 

.057, 

.  004, 

-.049, 

-.015, 

-.001, 

c 

.008, 

.012, 

.018, 

.  005, 

-.010  , 

-.012, 

-.006, 

c 

.007, 

.  009, 

.  008, 

.  002, 

-.007, 

-.009, 

-.005, 

95 

c 

.  008, 

-.  006  , 

.004, 

.  00  0  , 

-.003, 

-.004, 

-.001, 

c 

.003, 

.  002, 

.  003, 

.002, 

.  001  , 

.  001 , 

.001, 

c 

.000  , 

.0  02, 

.003, 

.  003, 

.  004  , 

.  002  , 

.  001  , 

c 

-.  000  , 

.001, 

.  002, 

.  003, 

.  003  , 

.  002, 

.001, 

c 

-.000, 

.001, 

.  002, 

.  002, 

.  002, 

.  002, 

.  002/ 

100 

OATA  V Y1Q/ 

C 

.018, 

.034, 

.066, 

.019, 

-.028, 

-. Oil  , 

-.002, 

C 

.005, 

.  008, 

.041, 

.001, 

-.040  , 

-.013, 

-.002, 

C 

.00  5, 

.  008, 

.013, 

.  003, 

-.010, 

-.011, 

-.007, 

C 

.005, 

.  006, 

.005, 

.  000, 

-.008, 

-. 010  , 

-.005, 

105 

C 

.006, 

.004, 

.002, 

-.001, 

-.004, 

-.004, 

-.002, 

C 

.002, 

.0  02  , 

.  002, 

.001, 

.001, 

-.000, 

-.000, 

C 

-.000, 

.001, 

.  002, 

.  003, 

.  003, 

.  001, 

.  0  00  , 

C 

.0  0  0  , 

.  000, 

.002, 

.003, 

.  002, 

.001, 

.001, 

C 

-.001, 

.001  , 

.001  , 

.002, 

.001, 

.  001 , 

.001/ 

END 
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SUBROUTINE  G2 


COC  6600  FTN  V3.0-P304  OPT=l  J 


SUBROUTINE  G2 
C**WINO  ANO  GUSTS  MOOULE 
COMMON  C  (3510 ) 

COMMON/NVZ/NVZ/VZARG/VZA/VZFUN/VZF 
5  */NVY/NVY/VYARG/VYA/VYFUN/VYF 

C**INPUT  OATA 

EQUIVALENCE  (C(  50),OPTNW  ) 
EQUIVALENCE  ( C  ( 2 04 ) , VM ACH ) 
EQUIVALENCE  ( C ( 1 20 ) , PPP1 ) 

10  EQUIVALENCE  (C (121) , CPP1) 

EQUIVALENCE  ( C ( 12 2 )  , OER1 ) 
EQUIVALENCE  (C(123),XTL) 
EQUIVALENCE  (C(124),XLL) 
EQUIVALENCE  (C(125),YTL) 

15  EQUIVALENCE  ( C ( 12 6 >  >  YLL ) 

EQUIVALENCE  (C(127),ZTL) 
EQUIVALENCE  (C(128),ZLL) 

C ’’OUTPUT  OATA 

EQUIVALENCE  (C<  100)  ,VWXE  ) 

20  EQUIVALENCE  <C<  101),VWYE  ) 

EQUIVALENCE  <C<  102) ,VWZE  ) 

C¥* INPUTS  FROM  OTHER  MODULES 

EQUIVALENCE (C(1635> ,ROELX) 
EQUIVALENCE(C(1636) , RO  ELY) 

25  EQU IV ALENCE ( C ( 1637) »ROELZ) 

EQUIVALENCE (C (54) , XPOS) 
EQUIVALENCE(C(55) ,YPOS) 
EQUIVALENCE(C(56) ,ZPOS) 
EQUIVALENCE(C (57) ,XTAIL  ) 

30  EQUIVALENCE(C(1648),RTXEO) 

EQUIVALENCE (C (47) ,PHY2) 

EQUIVALENCE (C (46) , PH Y3) 

EQU IVALENCE(C(45) ,YLUN) 
EQUIVALENCE(C (44) ,ZLUN) 

35  EQU I V AL ENCE (C ( 53) >TNOSOS) 

EQUIVALENCE(C (59) ,XNOSE) 
EQUIVALENCE(C(60) >  A  AN) 
EQUIVALENCE(C(61) , ASN) 

EQUIVALENCE  (C(62),PHZ1) 

40  EQUIVALENCE  (C(63),PHY1) 

EQUIVALENCE (C (43) ,CLMT) 

EQUIVALENCE  ( C ( 4 8 ) , CROFL O ) 
EQUIVALENCES  (42)  ,COUNTE) 
EQUIVALENCE(C(41) > OBSTAL ) 

45  EQUIVALENCE  (C(67),XLUN) 

EQUIVALENCE  ( C ( 6 9) , O I ASC ) 
EQUIVALENCE  (C(90),  XNPOS) 
EQUIVALENCE  ( C ( 91 > ,  YNPOS) 
EQUIVALENCE  (C(92),  ZNPOS) 

50  EQUIVALENCE  (C(93),  XTPOS) 

EQUIVALENCE  (C(94>,  YTPOS) 
EQUIVALENCE  (C(95),  ZTPOS) 
EQUIVALENCE  ( C ( 1 70 3) , CFA 11) 
EQUIVALENCE  ( C ( 1 70  7 )  , CF Al2 ) 

55  EQUIVALENCE  ( C ( 1 71 1 ) , CFA 13) 
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subroutine 


60 


65 


70 


75 


80 


85 


90 


95 


100 


105 


G2 


COC  6600  FT N  V3.0-P3Q4  OPT  =  l  ? 


XT  =CFAli*XT  AIL 

YT=CFA12*XTAIL 

ZT=CFA13*XTAIL 

XN=CFAll*XNOSE 

YN=CFA12*XN0SE 

ZN=CFA13*XNOSE 

XNPOS=ROELX  -XN 

YNPOS=-ROELY  +YN 

ZNPOS=  -ROELZ  +  ZN 

XTPOS  =  ROF.LX  -XT 

YTPOS=-RDELY  +YT 

ZTPOS=  -ROELZ  +■  ZT 

IF (COUNTS  . EQ . 1 . )  RETURN 

IF(C0UNTE.EQ.2.)  GO  TO  10 

IF(OPTNW.LE.O.)  GO  TO  10 

XLUN=(+P.OELX-XN+XPOS)  *.6 

YLUN= ( (-ROELY+YN) *OIASC  +YPOS) ».6 

ZIUN=( (-ROELZ+ZN) *OIASC-ZPOS) *.6 

XLUP=(+ROELX-XT+XPOS)  *.6 

YLUP= ( (-ROELY+YT) *OIASC  +YPOS) *. 6 

ZLUP=( (-ROELZ  +  ZT) *OIASC-ZPOS>  *.6 

PWZ1=0.0 

PWY1=0.0 

VWZ£=0. 

VWYE=0  . 

A  AN  =  0 . 

ASN=0. 

IF  (XLUP.GT  .XTL.OR.Xl.UP.LT  .XLL)  GD  TO  10 
IF ( YLUP.GT  .YTL  .  OR  .  YLUP . L T  .  YL  L)  GD  TD  10 
IF ( ZLUP • GT . ZTL .  0 R . ZLUP « L T , ZL L )  GO  TO  10 
IF (XLUN.GT .XTL .OR. XL UN. LT ,  YLL )  GO  TO  112 
IF (YLUN.GT .YTL.  OR . YLUN . I T . YL L)  GD  TO  112 
IF(ZLUN.GT.ZTL.  OR .ZLUN.LT ,ZLL)  GO  TO  112 

CALL  TABL3  ( YLUN , ZL UN , XLUN , VZ A , VZF , N VZ , XINTER , 4HPWZ1 , PWZ1) 

CALL  T ABL3 (YLUN, ZLUN , XLUN, V Y A , VY F , NV Y , X I NTER , 4HPW Y1 , PWY1 ) 

FFMC=2.3832*VMACH* *2  -  2.0232*VMACH  +  .9966 

PWZ1=PWZ1*FFMC 

PWY1=PWY1*FFMC 

PWZ1=-PWZ1 

PWZl=PWZl/(TNOSOS*OIASC) 

PWYl=PWYl/(TNOSOS*OIASC) 

PWY2=PWY1 

112  CALL  TABL3  < YL UP , ZL UP, XL  UP , VZ A , V ZF , NVZ , X INTE R , 4HPWZE , PWZ E ) 
CALL  TABL3  < YLUP, ZLUP , XLUP , VYA , VYF, NVY, XINTER, 4HPW YE , PH  YE) 
PWZE=-PWZE 

PWZE=PW7E*FFMC  / ( T NOSO S*OI ASC) 

PWYE  =  PWYE*FFMC  /(TNOSOS*OIASC) 

VWZE=(RTXEO»PWZE) 

VWYE=(RTXEO*PWYE) 

PWY3=PWY2-PWYE 

PWZ1=PWZ1-PWZE 

AAN=ASIN(PWZ1) 

ASN  =  AS  IN  (PWY3 ) 

RETURN 

10  VWXE  =  0  . 
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VW  YE  =  0. 

VWZE  =  0. 
AAN=0. 

ASN=0 . 

115  COUNTE=l. 

C ( 20  0  5) =PPP1 
C ( 201 5) =CPPi 
C ( 266A) =0ER1 ' 
RETURN 

120  END 
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CDC  6600  FTN  V3.0-P304  OPT  =  l  30 

C**AIR  DATA  MODULE  G3 
SUBROUTINE  G3 
COMMON  C ( 3510 ) 

C**INPUT  DATA 

5  EQUIVALENCE  (C ( 0 20  8  ) , RHZRO  ) 

C** INPUTS  FROM  OTHER  MODULES 

EQUIVALENCE  ( C ( 0  10 0 )  , V WX E  ) 

EQUIVALENCE  < C < 0 10 1 ) , V WY E  ) 

EQUIVALENCE  (C ( 010 2) , VWZE  ) 

10  EQUIVALENCE  (C(1603),VXE  ) 

EQUIVALENCE  <C(1607),VYE  ) 

EQUIVALENCE  (C(1611),VZE  ) 

EQUIVALENCE  <C(1623),RZE  ) 

C¥* INPUTS  FROM  MAIN  PROGRAM 
15  C**ST ATE  VARIABLE  OUTPUTS 

C**NONE 

C '‘MOTHER  OUTPUTS 

EQUIVALENCE  ( C ( 0 20 0 ) , VMWXE  ) 

EQUIVALENCE  <  C  (  0  20 1) , VMM YE  ) 

20  EQUIVALENCE  ( C ( 0 20 2) , VMMZE  ) 

EQUIVALENCE  ( C ( 0 20 3 ) , PDYNMC ) 

EQUIVALENCE  ( C ( 0 20 4) , V MACH  ) 

EQUIVALENCE  ( C ( 0 20 5) , ORHO  ) 

EQUIVALENCE  (C (0 20 6 ) , VSOUNO ) 

25  EQUIVALENCE  ( C ( 0 20 7)  , V A  I RSP ) 

EQUIVALENCE  <C(0209),RH  ) 

C**CALCULATE  PRESENT  ALTITUDE 
RH=  -RZE+RHZRO 

C**C ALCULATE  MISSILE  VELOCITY  HRT  AIR  MASS  IN  EARTH  AXES 
30  VMWXE  =  VXE-VWXE 

VMWYE  =  VYE-VWYE 
VMWZE  =  VZE-VWZE 

V  A  IRS  P  =  SQRT (VMWXE*VMWXE  +  VMWYE*VMHYE  +  VMWZE*VMWZE) 

C*  *  AIR  DENSITY,  SPEED  OF  SOUND,  OYNAMIC  PRESSURE,  AND  MACH 
35  DRHO=< . 076475) /(I . + . 33 25 E- 0 4*RH+RH*RH*RH» . 02315E-12) 

VSOUNO  =  -.00392*RH+1117.3 

PDYNMC  =  <DRHO*VAIRSP*VAIRSP> Z64.344 

VMACH  =  V  AIRSP/ V  SO  UNO 

RETURN 

40  ENO 
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SUBROUTINE  G4 

C44  ENO-OF-RUN  CALCULATIONS  SUBROUTINE  G4 
C44  THIS  IS  A  SUBROUTINE,  NOT  A  MODULE. 

C44  IT  IS  CALLEO  BY  STAGE  3  TO  COMPUTE  MISS  OISTANCE  ANO  STOP  THE 
C44  PROGRAM  IF  RANGE  IS  ZERO. 

C**‘MHMMMMM,**,MMMMMMMHMMMM‘*‘MHM‘¥****lMM‘*************<MMM,¥*-**********<Ml-»* 

COMMON  C  (3510 ) 

C44 INPUT  OATA 
C44NONE 

C44INPUTS  FROM  OTHER  MODULES 

EQUIVALENCE  (C(1615),RXE  ) 

EQUIVALENCE  (C(1619),RYE  ) 

EQUIVALENCE  (C(1623),RZE  ) 

EQUIVALENCE  (C(2000),T  ) 

C44STATE  VARIABLE  OUTPUTS 
C44NON  E 

C44OTHER  OUTPUTS 

EQUIVALENCE  ( C ( 2 0 2 0 ) , L CON V  ) 

C44  MISS  OISTANCE  PARAMETERS  ARE  OUTPUT  OIRECTLY  ANO  ARE  NOT  IN  COMMON 
C44  TEST  FOR  INCREASING  RANGE  ANO  SOLVE  FOR  TIME  AT  WHICH  RANGE  IS  ZERO 

5  FORMAT  (1H0,  16H  MISS  DISTANCE*  1PE1 7 . 8/ 1H0 , 1 3 H  TIME  FINAL* 

C  1PE17.8) 

6  FORMAT  ( 1HQ ,10  X, 10  HXM  E ARTH  =  1PE17 .8 , 3 X , 10H YM  EA RTH  =  1PE 17 . 8 , 3X , 

C  10HZM  EARTH=1PE17.8) 

7  FORMAT  ( 1H0 , 40 X , IQ HY  FL TP ATH=1PE17 . 8 , 3X , 1 0HZ  FLTPATH  =  1PE17 .8) 

C44  TEST  FOR  INCREASING  RANGE  ANO  SOLVE  FOR  TIME  AT  WHICH  RANGE  IS  ZERO 
IF(RZE.LT.O.O)  GO  TO  10 
UXYZ=R?E/(RZE-UZE) 

ROY* RYE- (RYE-UYE) 4UXYZ 
ROX=RXE-(RXE-UXE) 4UXYZ 
RDZ=0 .0 

T  ZERO  =  T- (T- UT) 4UXYZ 

RMISS=SQRT (ROX442  +  ROY442  +  ROZ442) 

WRITE  (6,5)  RMISS, TZERO 
WRITE  (6,6)  RDX,  RDY ,  RDZ 
LCONV=2 
RETURN 
10  UT  =  T 
UXE  =  RXE 
UYE  =  RYE 
UZE  =  RZE 

IF  (RZE  .GT.  100.)  LCONV  =  2 

RETURN 

ENO 
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45 
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55 


C**COOROINATE  CONVERSION  MODULE 
SUBROUTINE  G5 
COMMON  C  (3510 ) 

C 

C**INPUTS  FROM  OTHER  MODULES 

EQUIVALENCE  ( C ( 0 20 0 ) , VMWXE  ) 

EQUIVALENCE  ( C ( 0 20 1 ) , VMW YE  ) 

EQUIVALENCE  ( C ( 0 2 0 2 ) , VMWZE  ) 

EQUIVALENCE  (C(1603),VXE  ) 

EQUIVALENCE  (C(1607),VYE  ) 

EQUIVALENCE  (C(1611),VZE  ) 

EQUIVALENCE  (C(1668),RXO  ) 

EQUIVALENCE  <C(1669),RYO  ) 

EQUIVALENCE  (C(1670),RZO  ) 

EQUIVALENCE  ( C ( 17 0 3 ) , CF A1 1  ) 

EQUIVALENCE  ( C ( 170 7) , CFA12  ) 

EQUIVALENCE  ( C ( 1 71 1 ) , CF Ai 3  ) 

EQUIVALENCE  ( C ( 17 1 5 )  , CF A2 1  ) 

EQUIVALENCE  ( C  ( 1 719)  , CF A22  ) 

EQUIVALENCE  ( C ( 172 3 ) , CFA 23  ) 

EQUIVALENCE  ( C  <  1 72  7 )  ,  CF  A31  ) 

EQUIVALENCE  ( C ( 1 7 31 )  ,C FA 32  ) 

EQUIVALENCE  ( C ( 1 735 ) , CF A 33  ) 

EQUIVALENCE  (C (1739) ,WP  ) 

EQUIVALENCE  ( C ( 1 743 ) ,  WQ  ) 

EQUIVALENCE  (C(1747),WR  ) 

EQUIVALENCE  ( C ( 175 1 ) , CRAD  ) 

EQUTVALENCE(C(3504) , OPTN4) 

C 

C**OTHER  OUTPUTS 

EQUIVALENCE  < C ( fl 35 0 ) , BTHT  ) 

EQUIVALENCE  ( C ( 0 35  1 ) , BPS  I  ) 

EQUIVALENCE  CC  C0352)  ,  BPHI  ) 

EQUIVALENCE  < C ( 0 35 3) , BTHTD  ) 

EQUIVALENCE  ( C ( 0 354 ) , B PSI D  ) 

EQUIVALENCE  ( C ( 0 35 5 ) , BPHI D  ) 

EQUIVALENCE  ( C ( 0 356) , VTOTE  ) 

EQUIVALENCE  < C ( 0 360 ) , VMWU  ) 

EQUIVALENCE  ( C ( 0 361) , VMWV  ) 

EQUIVALENCE  ( C ( 0 362 ) , VMWW  ) 

EQUIVALENCE  ( C ( 0 367 ), B ALPHA ) 

EQUIVALENCE  ( C ( 0 368 ) , B A LPHY ) 

EQUIVALENCE  ( C ( 0 3 6 9) , B ALPHP) 

EQUIVALENCE  ( C ( 0 370 ) , BPHIP  ) 

EQUIVALENCE  (C<  380),RANGO  ) 

EQUIVALENCES  (381)  , ALPHAO) 

C 

C**CALCULATION  OF  HEAOING,  PITCH,  ROLL  EULER  ANGLES  IN  DEGREES 
BPHI  =  ATAND(CFA23,CFA33) 

BTHT  =  ATAND(-CFA13,SQRT(CFA11*CFA11+CFA12*CFA12) ) 

BPSI  =  ATAND(CFA12,CFA11) 

C 

IF(COSD( BTHT) .EQ.O .0)  GO  TO  5 

BPSID  =  (WQ*SIND(BPHI) +WR*COSD (BPHI) ) /COSD(BTHT) 

5  CONTINUE 
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60 


65 


70 


75 


BPHID  =  WP+BPSID*SIND(BTHT) 

BTHTO  =  WQ*COSD(BPHI)-WP.*SIND(BPHI) 

C 

C**CALCULATIDN  OF  TOTAL  VELOCITY 

VTOTE  =  SQRT(VXE*VXE+VYE*VYE+VZE*VZE> 

C 

RANGD  =  SQRT (  (RXE-RXD>**2  +  (RYE-RYD ) +  (RZE-RZD) **2> 
C 

IF  ( ( DPTNA  .GT.  0.).AND.(T  .LT.  DER) )  GO  TO  30 
C**VELDCITY  WRT  AIR  IN  BODY  AXES 

VMWU  =  CFAli*VMWXE+CFA12*VMWYE+CFA13*VMWZE 
VMWV  =  CFA21*VMWXE+CFA22*VMWYE+CFA23*VMWZE 
VMWW  =  CFA31*VMWXE+CFA32*VMWYE+CFA33*VMHZE 
C 

C4* VERTICAL  AND  HORIZONTAL  ANGLES  OF  ATTACK 
BALPHA  =  ATANO(VMWW,VMWU> 

BALPHA=BALPHA+ALPHAO 
BALPHY  =  ATAND (VMWV, VMWU) 

C**ALPHA  PRIME  AND  PHI  PRIME  (WIND  TUNNEL  AXES) 

IF  ( (BALPHA-BALPHY) .EO.O.)  GO  TO  30 
BPHIP  =  ATAND (BALPHY , BALPHA) 

30  BALPHP=SQRT(BALPHA**2+BALPHY**2) 

RETURN 

END 
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SUBROUTINE  Ai 
C 

COMMON  C  (3510 ) 

C 

5  C**TA3LE  LOOKUP  FOR  BOOY  FORCE  COEFFICIENTS 

COMMON  /NCXO  /NCXO  /CXOARG/  CXOA  /CXOFUN/  CXOF 

1  /NCXCP  /  NCX  /CXARG  /CXA  /CXFUN  /CXF 

2  /NCZ  /NCN  /CZARG  /CNA  /CZFUN  /CNF 

3  /NOCZ/NCOCN  /OCZ ARG/COCN A  /OCZFUN/COCNF 

10  5  /NCY2  /NCY2  /CY2ARG/  CY2 A  /CY2FUN/  CY2F 

C 

C**T ABLE  LOOKUP  FOR  BOOY  MOMENT  COEFFICIENTS 

1  /NCL2/NCL2  /CL2ARG/  CL2A  /CL2FUN/  CL2F 

2  /NCL3/  NCL 3  /CL3ARG/  CL 3 A  /CL3FUN/  CL3F 

15  5  /NCM/  NCM  /CM ARG  /  CM A  /CMFUN  /  CMF 

6  /NOCM/  NCOCM  /OCMARG/  COCMA  /OCMFUN/  COCMF 

9  /NCN2/  NCN2  /CN2ARG/  CN2 A  /CN2FUN/  CN2F 

*/NCLP/  NCLP  /CLPARG/  CLPA  /CLPFUN/  CLPF 

*/NCMQ/  NCMQ  /CMQARG/  CMQA  /CMQFUN/  CMQF 

20  C 

C**TABLE  LOOKUP  FOR  SURFACE  COEFFICIENTS 

COMMON  /NCZO/  NCZO  /CZOARG/  CZOA  /CZOFUN/  CZOF 

2  /N CLO /  NCLO  /CLOARG/  CLOA  /CLDFUN/  CLOF 

3  /NCMD/  NCMO  /CMOARG/  CMOA  /CMDFUN/  CMOF 

25  C 

C»*  INPUT  DATA 

EQUIVALENCE  ( C ( 12 52 ) , X INTER) 

C 

C**INPUTS  FROM  OTHER  MODULES 
30  EQUIVALENCE  ( C < 0 20 4) , VMACH  ) 

EQUIVALENCE  ( C ( 0 36 7)  ,  B ALPH A ) 

EQUIVALENCE  ( C ( 0 363) , BAL PH Y> 

EQUIVALENCE  < C < 0 369) , B A LPHP ) 

EQUIVALENCE  < C < 0 370 ) , BPHI P  ) 

35  C 

C**INPUTS  FROM  MAIN  PROGRAM 

EQUIVALENCE  <C(2000),T  ) 

EQUIVALENCE  <C(2664),OER  ) 

C 

40  C ¥ ^ OUT  PUTS  -  COEFFICIENTS  FOR  BOOY  FORCES 

EQUIVALENCE  <C(1203),CX  ) 

C**OUTPUTS  -  COEFFICIENTS  FOR  BODY  MOMENTS 
EQUIVALENCE  (C(1206),CLP  ) 

EQUIVALENCE  (C(1207),CMQ  ) 

45  EQUIVALENCE  <C(12Q8),CNR  ) 

EQUIVALENCE  <C<1209),CL  ) 

EQUIVALENCE  (C(1210),CM  ) 

EQUIVALENCE  <C(12il),CN  ) 

EQUIVALENCE  (C(1240),CL2  ) 

50  EQUIVALENCE  (C(1247),CMP  ) 

EQUIVALENCE  (C(1248),CNP  ) 

EQUIVALENCE  (C(1249),CLR  ) 

C 

C**OUTPUTS  -  COEFFICIENTS  FOR  SURFACE  EFFECTS,  AND  TOTAL  EFFECTS 
55  EQUIVALENCE  (C(1204),CY  ) 
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C 

C 

C 

C 

C 

C 

C 

C 

C 


C 

C 


EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 

EQUIVALENCE 


( C ( 1 20 5 )  ,CZ 
(C (1209) ,CL 
(C ( 1210) » CM 
( C ( 1 21 1 ) ,CN 


EQUIVALENCES  (1272)  ,CMAA) 
EQUIVALENCE(C(1273) , CNAA) 
EQUIVALENCE (C (12  74)  , CAA) 


EQUIVALENCES  (1250)  ,P> 


) 

) 

) 

) 


INPUT  VARIABLE  XINTER  IS  THE  INTERPOLATION  CONTROL 
LESS  THAN  ZERO  -  STRAIGHT  LINE  INTERPOLATION 
POSITIVE  -  PARABOLIC  INTERPOLATION  ,  WITH  END  INTERVAL 
INTERPOLATION  (0.  TO  1.) 

0.0  -  STRAIGHT  LINE 
1.0  -  FULL  PARABOLIC 


IF(P.EQ.0. . AND  .T .LE.DER)  UTIM£=-1. 

IF  (T-UTIME  • LE •  0.)  RETURN 
P=i. 

UTIME=  T 

MULTIPLE  ANGLE  FORMULAE  AND  ABSOLUTE  VALUES  OF  ANGLE  OF  ATTACK 
USPHI  =  SINO(BPHIP) 

UCPHI  =  COSO ( 8PHIP ) 

CX  =C A A 

CNP=CNAA*BALPHP 
CMP=CMAA*BALPHP 
CL2= .  05 

US4PHI=SINO(4.*0PHIP) 

CLR=CL2*US4PHI 

CY=-CNP*USPHI 

CZ=-CNP*UCPHI 

CM=  CMP  *UCPHI 

CN=-CMP*USPHI 

CL  =  CL  R 

RETURN 

ENO 
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30 


C**AERO  FORCE  AND  MOMENT  MODULE  BODY  AXES 
SUBROUTINE  A2 
COMMON  C  (  3510 ) 

C 


5 

C**INPUT  DATA 

EQUIVALENCE 

<C  (1306) 

j RF  AREA ) 

EQUIVALENCE 

<C  (1307) 

*  RFLGTH) 

EQUIVALENCE 

<C  (1308) 

,RDELCG> 

EQUIVALENCE 

<C (1313) 

>  RFXCG 

) 

10 

EQUIVALENCE 

<C (1314) 

,RFYCG 

) 

EQUIVALENCE 

< C  (1315) 

,RFZCG 

) 

EQUIVALENCE 

<C (1316) 

j  RLUG 

) 

EQUIVALENCE 

< C  ( 131  7) 

,RAIL 

) 

EQUIVALENCE 

<  C  <1627) 

, AGRAV 

) 

15 

EQUIVALENCE 

<C  (3504) 

, 0PTN4 

) 

EQUIVALENCE 

<C (1360) 

,EMA) 

EQUIVALENCE 

( C ( 136 1) 

» SFORCZ ) 

EQUIVALENCE 

r 

<C  (1362) 

> SFORCY) 

20 

C  * ♦INPUTS  FROM  OTHER  MODULES 

EQUIVALENCE 

( C  <  0  20  3) 

» PDYNMC) 

EQUIVALENCE 

<  C  <  0  2  0  7) 

,VAIRSP> 

EQUIVALENCE 

<C<  350) 

,BTHT 

) 

EQUIVALENCE 

<C<  380) 

,RANGO 

) 

25 

EQUIVALENCE 

( C  < 12  0  3) 

,cx 

) 

EQUIVALENCE 

S (1204) 

,CY 

) 

EQUIVALENCE 

<C  <1205) 

.cz 

) 

EQUIVALENCE 

<C (1206) 

r  CLP 

) 

EQUIVALENCE 

<  C  (4.207) 

,CHQ 

) 

30 

EQUIVALENCE 

<C (1208) 

,  CNR 

) 

EQUIVALENCE 

<C  (1209) 

>  CL 

) 

EQUIVALENCE 

<C  (1210) 

t  CM 

) 

EQUIVALENCE 

S  < 1211) 

,CN 

) 

EQUIVALENCE 

< C  <1236) 

>  CHI 

) 

35 

EQUIVALENCE 

( C ( 1 2  37) 

t  CH2 

) 

EQUIVALENCE 

<C  <1238) 

>  CH3 

) 

EQUIVALENCE 

<C  <1239) 

,CH4 

) 

EQUIVALENCE 

( C ! 1 41 1) 

,FTHX 

) 

EQUIVALENCE 

<  C  < 1412  > 

,FTHY 

) 

40 

EQUIVALENCE 

<C (1413) 

» FTHZ 

) 

EQUIVALENCE 

<C (1422) 

,RLCG 

) 

EQUIVALENCE 

( C  < 1 62 8 ) 

, DM ASS 

) 

EQUIVALENCE 

(C (1723) 

,CFA23 

) 

EQUIVALENCE 

<C  <1735) 

,CFA33 

) 

45 

EQUIVALENCE 

(C (1739) 

,WP 

) 

EQUIVALENCE 

(C (1743) 

,WQ 

) 

EQUIVALENCE 

( C  <  1 74 7) 

,WR 

) 

EQUIVALENCE 

t  C  <1749) 

,FMIY 

) 

EQUIVALENCE 

(C (1750) 

,FMIZ 

) 

50 

EQUIVALENCES  (17  03)  , 

CFA11) 

EQUIVALENCES  <1707)  ,  CFA1Z) 
EQUIVALENCE<C(1711) ,CFA13> 
EQUIVALENCE(C(1715) ,CFA21) 
EQUIVALENCES(1719) ,CFA22) 
55  EQUIVALENCE(C<1723) , CFA23) 
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EQUIVALENCES  (1727)  ,CFA3i> 

EQUIVALENCE(C(173i) ,CFA32) 

EQUIVALENCE (C (1736) ,CFA33) 

C 

60  C**OTHER  OUTPUTS 

EQUIVALENCE  ( C ( 130 0 ) , FXBA  ) 

EQUIVALENCE  ( C ( 130 1) , FYB A  ) 

EQUIVALENCE  ( C ( 130 2 ) ,F Z B A  ) 

EQUIVALENCE  ( C  (130 3 )  , FMX B A  ) 

65  EQUIVALENCE  (  C  ( 130 4 )  , FMY P- A  > 

EQUIVALENCE  ( C  (13 05 )  » FMZBA  ) 

EQUIVALENCE  ( C ( 1 30  9) ,FMH1  > 

EQUIVALENCE  ( C ( 13 10 ) , FMH2  ) 

EQUIVALENCE  ( C ( 1 31 1 ) , FMH3  ) 

70  EQUIVALENCE  ( C ( 1 312) , FMH4  ) 

EQUIVALENCE  < C ( 1320 > , FMXT H  ) 

EQUIVALENCE  ( C ( 1 32 1 ) , FMYTH  ) 

EQUIVALENCE  ( C ( 1322) ,FMZTH  ) 

EQUIVALENCE  ( C  (1323)  , FMXLUG) 

75  EQUIVALENCE  ( C ( 1 324 ) , FMYLUG ) 

EQUIVALENCE  (C ( 1325) , FMZLUG) 

EQUIVALENCE(C(2000) ,T) 

EQUIVALENCE (C (1332) , EFT) 

EQUIVALENCES  (1333)  ,  EJD) 

80  EQUIVALENCE (C ( 1326) ,EFORCX) 

EQUIVALENCE (C (1327) ,EFORCY> 

EQUIVALENCE(C(1328) ,EFORCZ> 

EQUIVALENCES  (1329)  ,EMOMX) 

EQUIVALENCE(C (1330) , EMOMY) 

85  EQUIVALENCE(C(1331) » EMOMZ ) 

EQUIVALENCE(C (61) >  ASN) 

EQUIVALENCE (C (60 ) , AAN) 

EQUIVALENCE  (C ( 73) ,XNOSEl) 

EQUIVALENCE  (C(72),OELZ) 

90  C 

C**FORCE  VECTOR  COMPONENTS 
UQS  =  POYNMC* RF  AREA 
UQSL  =  UQS*RFLGTH 
CY=CY+.04*ASN*57.3 

95  CN=CN+.04*ASN»57.3*XNOSE1/RFLGTH 

CM=CM-.Q4*AAN*57 . 3*XN0SE1/RFLGTH 
CZ=CZ+.04*AAN*57.3 
C 

FXBA=UQS*(-CX) +FTHX 

100  FYBA=UQS*CY+FTHY 

FZBA=UQS*CZ+FTHZ 
IF(VAIRSP.LE.O.O)  GO  TO  72 
C 

C**AERO  MOMENTS 

105  VAIRSP=VAIRSP*2. 

FMXBA  =  (CLMCLP/VAIRSP) *RFLGTH*HP) *UQSL 

FMYBA  =  (CM+(CMQ/VAIRSP) *RFLGTH*WQ) *UQSL+FZBA*ROELCG 

FMZBA  =  (CN-MCNR/VAIRSP) *RF LGTH’WR) *UQSL-F YBA*RDELCG 

EFBAX=0. 

110  EF3AY=0. 
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EFBAZ=0 . 

EMBAX=0. 

EMB A Y=  0 . 

EMB AZ=0  • 

115  IF(T.GT.EFT)  GO  TO  37 

IF(DELZ.GT.EJD)  GO  TO  37 

EFBAX=EFORCX*CFAli  +  EFORC Y *CF A 12  +  EF ORCZ *CF A 1 3 
EFBAY  =  EF  ORCX*CF  A21  + EFORC Y* CF A22  + EFORC Z* C FA2 3 
EFBAZ=EFORCX*CFA31  +EFORC Y*CF A32  ♦ EFORCZ*CFA33 
120  .  EMBAX  =  EMOMX*CFAU  +  EMOMY*CFAl 2  +EM0MZ*CFA13 

EMBAY=EMOMX*CFA21  +EMOMY*CFA22  +EMOMZ*CFA23 
EMBAZ=EMOMX*CFA31  +EMOMY*CFA32  +EM0MZ*CFA33 
FXBA=FXBA+EFBAX 
FYBA=FYBA+EFBAY 
125  FZ8A=FZBA+EFBAZ 

FMXBA=FMXBA  +  EMBAX 
FMYBA=FMYBA  + EMBAY 
FMZBA=FMZBA+EMBAZ 
37  CONTINUE 

130  VAIRSP=VAIRSP/2. 

C 

C** MOM  ENTS  CAUSED  BY  THRUST  MISALIGNMENTS 
FMXTH  =  -FTHY*RFZCG  +  FTHZ*RFYCG 

FMYTH  =  FTHX*RFZCG  +  FTHZ*RFXCG 

135  FMZTH  =  -FTHX*RFYCG  -  FTHY*RFXCG 

C 

C* * MOMENTS  AND  FORCES  DUE  TO  LUGS 

IF  (  ( OPTN4  ,GT,  0.) .AND. (RANGO  .LE.  RAIL+RLUG)  )  GO  TO  70 
FYLUG  =  0. 

140  FZLUG  =  0. 

FMXLUG  =  0. 

FMYLUG  =  0. 

FMZLUG  =  0. 

GO  TO  74 

145  70  IF  (RANGO  .LE.  RAIL)  GO  TO  72 

FYLUG  =  - <F  YB A  +  DMASS* AGRAV* CFA23  +  ( FMZBA  +  FMZTH)* 

*  RLCG*DMASS/FMIZ)/(1.  +  DMASS*RLCG*RLCG/FMIZ) 

FZLUG  =  - ( FZB  A  +  DMASS*AGRAV*CFA33  +  ( FMYBA  +  FMYTH)* 

*  RLCG*DMASS/FMIY) /  (1,  +  DM ASS*RLCG* RL CG/FMI Y) 

150  FMXLUG  =  - ( FMX3A  +  FMXTH) 

FMYLUG  =  FZLUG*RLCG 
FMZLUG  =  FYLUG*RLCG 
GO  TO  74 
72  CONTINUE 

155  FYLUG  =  -  (FYBA  +  DM  ASS* AGRAV*CFA23) 

FZLUG  =  -  ( FZB A  +  DM ASS  *  AGRA V* CFA 33 ) 

FMXLUG  =  -(FMXBA  +  FMXTH) 

FMYLUG  =  -(FMYBA  +  FMYTH) 

FMZLUG  =  -(FMZBA  +  FMZTH) 

160  74  CONTINUE 

C 

C**T OTAL  FORCE  AND  MOMENTS 
FYBA  =  FYBA  +  FYLUG 
FZBA  =  FZBA  +  FZLUG 
FMXBA  =  FMXBA  +  FMXTH  +  FMXLUG 
158 
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C 

C*» 


FMY0A  =  FMYBA  +  FMYTH  + 
FMZBA  =  FMZBA  +  FHZTH  + 


CALCULATE  HINGE  MOMENTS 


170 

FMH 1  = 

CH1*UQSL 

FMH2  = 

CH2*UQSL 

FMH3  = 

CH3*UQSL 

FMH4  = 

CH4»UQSL 

RETURN 
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END 

FMYLUG 

FMZLUG 


30 


159 


♦INITIALIZATION  FOR  ENGINE  MODULE 
SUBROUTINE  A3I 
COMMON  C  (3510 ) 

DIMENSION  IPL(lOl) 

EQUIVALENCE  (C (2561) ,N  ) 

EQUIVALENCE  (C(2562),IPL  ) 

C ( 1499)  =  0. 

IPL  ( N  )  =  149  6 
N  =  Ntl 
RETURN 
END 


CDC  6600  FT  N  V3.0-P304  OPT  =  l  30 

C**ENGINE  MODULE 

SUBROUTINE  A3 
COMMON  C  (3510 ) 

C 

5  C**lOOK  UP  TABLE  FOR  THRUST 

COMMON  /NTH/NTH  /THARG/THA  /T HFUN/THF 

C 

C**  INPUT  DATA 

EQUIVALENCE  ( C ( 140 1) , BALPHT ) 

10  EQUIVALENCE  ( C ( 1 40 2 ) , BPH I T  ) 

EQUIVALENCE  ( C ( 1 40 3 > , QNA LGN) 

EQUIVALENCE  ( C ( 140 4) , PCFTH  ) 

EQUIVALENCE  ( C ( 140 5) , QBURN  ) 

EQUIVALENCE  ( C ( 1 414 ) ,C IS P  ) 

15  EQUIVALENCE  (C(1415),DWT  ) 

EQUIVALENCE  (C(1416),DWP  ) 

EQUIVALENCE  (C (1 417 ) , RDCGO  ) 

EQUIVALENCE  ( C ( 1 41 8) , RDCGF  ) 

EQUIVALENCE  ( C ( 1 41 9 > , FMI XO  ) 

20  EQUIVALENCE  (C  <  14 20 )  , F MI  Y 0  ) 

EQUIVALENCE  ( C ( 1 421 ) , R LC GO  ) 

EQUIVALENCE  ( C (1 62 7 ) , AGRA V  ) 

C 

C**  INPUTS  FROM  OTHER  MODULES 
25  EQUIVALENCE  (C < 1252) , XINTER) 

EQUIVALENCE  <C(2000),T  ) 

C 

C**  OUTPUTS 

EQUIVALENCE  (C ( 1308) ,RDELCG) 

30  EQUIVALENCE  ( C ( 1 40 9 ) , UDWP  ) 

EQUIVALENCE  ( C ( 1 410 ) , FTHRST ) 

EQUIVALENCE  ( C ( 1 411 ) , F T HX  ) 

EQUIVALENCE  ( C ( 1 41 2) , F TH Y  ) 

EQUIVALENCE  ( C ( 1 41 3 ) , FT H Z  ) 

35  EQUIVALENCE  ( C ( 1 422 ) , RL CG  ) 

EQUIVALENCE  ( C ( 1628 ), DMAS S  ) 

EQUIVALENCE  ( C ( 174 8 )  , FMI X  ) 

EQUIVALENCE  ( C ( 1749) , FMI Y  ) 

EQUIVALENCE  ( C ( 1 75 0 ) , F MI Z  ) 

40  C 

C**ST  ATE  VARIABLES  AND  THEIR  DERIVATIVES 
EQUIVALENCE  ( C ( 1496) , UIMPD  ) 

EQUIVALENCE  (C (1499) ,UIMP  ) 

C 

45  IF  (QBURN.  GT. 0 .)  RETURN 

CALL  TABLE  ( T , TH A , THF , NTH , X  IN  TER , 6HFT HRST , FTHRST ) 

FTHRST  =  FTHRSTMi.  +  PCFTH) 

C 

IF  (QNALGN)  20,20,10 
50  10  USINA=SI NO (BALPHT) 

FTHX=FTHRST*COSO( BALPHT) 

FTH Y  =  -FT HRST’USIN  A*S IND  (BPHIT ) 

FTHZ=FTHRST*USINA*COSD (BPHIT) 

GO  TO  30 

55  20  FTHX=FTHRST 
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SUBROUTINE  A3 


F TH  Y  =  0  . 
FTHZ=0. 
CONTINUE 


COC  6600  FTN  V3.0-P304  OPT  =  l 


30 


60 


65 


70 


75 


80 


C 

C 

C 

C 


100 


UIMPO 

UOWP 


FTHRST 

UIMP/CISP 


DMASS  =  (OWT  -  UOWPl/AGRAV 

ROELCG  =  ROCGO  -  (ROCGO  -  RDCGF) *UOWP/OWP 


FMI X  =  FMIXOMOWT  -  UOWP)/OWT 

FMIY  =  FMIYO*(OWT  -  UOWP) /OWT 

FMIZ  =  FMIY 

RLCG  =  RLCGO  +  ROELCG 

IF  (FTHRST  .GT.  0.)  RETURN 


WRITF  (6,100)  T 

FORMAT  ( // 14H  BURNOUT  TIME= , F 8 . 4 , 5 H  SEC.) 

QBURN=1.0 

FTHRST  =  0  . 

FTHX=0 . 

FTHY=0. 

FT  HZ  =  0 . 

RETURN 

ENO 
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C DC  6600  FTN  V 3 


0-P304  OPT  =1 


30 


6 


10 


15 


20 


25 


30 


35 


40 


45 


50 


55 


C**  TRANSLATIONAL  OYNAMICS  INITIALIZATION  MODULE  TOR  G1 
SUBROUTINE  Dll 


COMMON  C (351 

0) 

EQUIVALENCE 

(C 

(2561) 

,N 

) 

EQUIVALENCE 

(C 

(2562) 

>  I  PL 

) 

DIMENSION  I 

PL 

(100) 

1  PUT  DATA 

EQUIVALENCE 

(C 

(  100) 

,  VWXE 

) 

EQUIVALENCE 

(C 

(  101) 

,V  WYE 

) 

EQUIVALENCE 

(C 

(  102) 

,VWZE 

) 

EQUIVALENCE 

(C 

(  204) 

, VMACH 

) 

EQUIVALENCE 

(C 

(  367) 

, BALPHA 

) 

EQUIVALENCE 

(C 

(  368) 

, BALPHY 

) 

EQUIVALENCE 

(C 

(1615) 

,  RXE 

) 

EQUIVALENCE 

(C 

(1619) 

,  RYE 

) 

EQUIVALENCE 

(C 

(1623) 

,RZE 

) 

EQUIVALENCE 

(C 

(1603) 

,  VXE 

) 

EQUIVALENCE 

(C 

(1607) 

,  VYE 

) 

EQUIVALENCE 

(C 

(1611) 

,VZE 

) 

EQUIVALENCE 

(C 

(1635) 

jRDELX 

) 

EQUIVALENCE 

(C 

(1636) 

,RDELY 

) 

EQUIVALENCE 

(C 

(1637) 

j  RDELZ 

) 

EQUIVALENCE 

(C 

(1643) 

, VTARG 

) 

EQUIVALENCE 

(C 

(1651) 

,RTXE 

) 

EQUIVALENCE 

(C 

(1655) 

,RTYE 

) 

EQUIVALENCE 

(C 

(1659) 

,RTZE 

) 

EQUIVALENCE 

(C 

(1668) 

>  RXO 

) 

EQUIVALENCE 

(C 

(1669) 

,RYO 

) 

EQUIVALENCE 

(C 

(1670) 

,RZO 

) 

EQUIVALENCE 

(C 

(1753) 

, BTHTO 

) 

EQUIVALENCE 

(C 

(1754) 

j  BPS 1 0 

) 

EQUIVALENCE 

( 

C  (  0  2  09 

)  ,  RH  ) 

EQUIVALENCE (C (1660 ) , VTXE) 
EQUIVALENCE <C( 1661) , VTYE) 
EQUI V  AL  ENCE (C (  1662) , VTZE) 

C 


IPL(N)  = 

1600 

IPL (N+l) 

=  1604 

IPL ( N+2 ) 

=  1608 

IPL (N+3) 

=  1612 

IPL  (N  +  4) 

=  1616 

IPL (N+5) 

=  1620 

IPL ( N+6 ) 

=  1640 

I  PL ( N  +  7 ) 

=  1644 

IPL (N+8 ) 

=  1648 

IPL (N+9) 

=  1652 

IPL ( N+10 ) 

=  1656 

N  =  N+ll 

R.H=  -PZE 

24  VSOUND  = 

1117.3  -  . 0 03 92 * RH 

VMWTE  =  VMACH*VSOUND 
VTARG=VMWTE 

VMWXY  =  VMWTE*COSD (3ALPHA  -  BTHTO) 
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SUBROUTINE  Oil 


CDC  6600  FT N  V3.0-P304  OPT  =  l  30 


VXE  =  VHXE  +  VMWXY*COSD(BALPHY  F  BPSIO) 
VYE  =  VW YE  +  VMWXY*SINO(BALPHY  +  BPSIO) 
VZE  =  VWZE  +  V  MW TE*SINO(B ALPHA  -  BTHTO) 

60  C 


VTXE=VXE 
VT YE=V YE 
VTZE= VZE 


30  ROELX 

=  RTXE-RXE 

ROELY 

=  RTYE-RYE 

RDELZ 

=  RTZE-RZE 

RXO  = 

RXE 

RYO  = 

RYE 

RZO  = 

RZE 

RETURN 

END 
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CDC  6600  FTN  V3.0-P304  OPT  =  l 


30 


C**TRANSLATIONAL  DYNAMICS  MODULE 
SUBROUTINE  01 
COMMON  C ( 3510 ) 

C 


5  • 

C¥*INPUT  OATS 

EQUIVALENCE 

( C ( 1627) j AGRAV 

) 

EQUIVALENCE 

(C ( 1628 )  » DMASS 

) 

C**INPUTS  FROM  OTHER  MODULES 

10 

EQUIVALENCE 

(C  (1300)  ,FX8A 

) 

EQUIVALENCE 

(C ( 1301 ) , FYBA 

) 

EQUIVALENCE 

(C  (1302) , FZB  A 

) 

EQUIVALENCE 

(C (1667)  ,RZ 

) 

EQUIVALENCE 

(C (1703) jCFAll 

) 

15 

EQUIVALENCE 

( C ( 170  7 ) 5  CF A 1 2 

) 

EQUIVALENCE 

( C ( 1 711 ) ; CFA 1 3 

) 

EQUIVALENCE 

(C (1715) ,CFA21 

) 

EQUIVALENCE 

( C  ( 1 71 9) ,CFA22 

) 

EQUIVALENCE 

(C  (1723)  ,CFA23 

) 

20 

EQUIVALENCE 

(C(1727) »CFA31 

) 

EQUIVALENCE 

(C  (1731) ,CFA32 

) 

EQUIVALENCE 

(C  ( 1735)  ,CFA33 

) 

EQUIVALENCE 

(C  (2000)  ,T 

) 

25 

c 

C**STATE  VARIABLE 

OUTPUTS 

EQUIVALENCE 

( C ( 1 60  0  )  >  VXEQ 

) 

EQUIVALENCE 

( C ( 160  3)  ,VXE 

) 

EQUIVALENCE 

( C ( 1 60  4)  , V YED 

) 

EQUIVALENCE 

(C  (1607) ,VYE 

) 

30 

EQUIVALENCE 

(C  (1608)  jVZED 

) 

EQUIVALENCE 

(C  (1611)  ,VZE 

) 

EQUIVALENCE 

( C ( 161 2) jRXED 

) 

EQUIVALENCE 

(C (1615) ,RXE 

) 

EQUIVALENCE 

(C  (1616)  ,RYED 

) 

35 

EQUIVALENCE 

( C  ( 16 19)  >  RYE 

) 

EQUIVALENCE 

( C ( 1 62  0 )  ,RZED 

) 

EQUIVALENCE 

(C (1623) ,RZE 

) 

EQUIVALENCE 

(C  (1648)  ,RTXED 

) 

EQUIVALENCE 

(C  (1651) ,RTXE 

) 

40 

EQUIVALENCE 

( C  ( 1652 ) ,RTYED 

) 

EQUIVALENCE 

(C ( 1655) ;RTYE 

) 

'  EQUIVALENCE 

( C ( 1 656) ,RTZEO 

) 

EQUIVALENCE 

/•v 

( C ( 1659) jRTZE 

) 

45 

C**OTHER  OUTPUTS 

EQUIVALENCE 

(C  ( 1624)  AXBA 

) 

EQUIVALENCE 

( C ( 1 625) ,AYBA 

) 

EQUIVALENCE 

(C (1626) ,  AZBft 

) 

EQUIVALENCE 

(C ( 1632) »  VOELX 

) 

50 

EQUIVALENCE 

( C ( 163 3)  , VDELY 

) 

EQUIVALENCE 

(C (1634) ,VDELZ 

) 

EQUIVALENCE 

(C (1635) ,RDELX 

) 

EQUIVALENCE 

<C (1636) ,RDELY 

) 

EQUIVALENCE 

(C (1637) ,RDELZ 

) 

55 

EQUIVALENCE 

( C ( 1660 ) >  VTXE 

) 
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SUBROUTINE  01 


CDC  6600  FTN  V3.0-P304  OPT=l  30 


60 


65 


70 


75 


80 


85 


90 


95 


EQUIVALENCE  <C ( 1661) , VT YE 
EQUIVALENCE  < C  ( 1 662 )  , VT ZE 
EQUIVALENCES  (72)  ,DELZ> 
EQUIVALENCE (C(71) , DELY) 
EQUIVALENCE<C(70) ,OELX) 

C 

C** ADD  AERO  AND  THRUST  FORCES  TO 
AXBA  =  FX8A/0MASS 
AYBA  =  FYBA/OMASS 
AZB A  =  FZBA/OMASS 


) 

) 


GET  TOTAL  ACCELERATION  IN  BODY  AXES 


C 

C** RESOLVE  FROM  BODY  TO  EARTH  AXES 

AXE  =  CFA11*AXBA+CFA21*AYBA+CFA31*AZBA 


AYE  =  CFA12*AXBA+CFA22*AYBA+CFA32*AZBA 
AZE  =  CFAl3*AXBA+CFA23*AYBA+CFA33*AZBA 


C**INTEGRATE  ACCELERATIONS 
VXED  =  AXE 
VYED  =  AYE 
VZED  =  AZE  +  AGRAV 
C 
C 

C**INT  EGRATE  VELOCITIES  TO  EARTH  AXES  POSITION 


10  RXEC 

=  VXE 

RYEO 

=  V  YE 

RZEO 

=  V  ZE 

RTXED 

= 

VTXE 

RTYED 

= 

VT  YE 

RTZED 

= 

VTZE 

VOELX 

— 

VTXE-VXE 

VDELY 

= 

VTYE-VYE 

VOELZ 

VTZE-VZE 

ROELX 

- 

RTXE-R.XE 

ROELY 

= 

RTYE-RYE 

RDELZ 

= 

RTZE-RZE 

DEL  X  =  ™ 

RDELX 

QEL  Y  =  “ 

R.OELY 

DEL  Z  =  - 

RDELZ 

RETURN 

END 
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C**ROT AT IONAL  OYNAMICS  INITIALIZATION  MODULE  D2IEUL 
SUBROUTINE  021 
COMMON  C  (  35 10 ) 

DIMENSION  IPl  (100) 

5  C**INPUT  OATA 

EQUIVALENCE  ( C ( 1 75 2 > , BPH 1 0  ) 

EQUIVALENCE  ( C ( 1 75 3) , BTHTO  ) 

EQUIVALENCE  ( C ( 1754) , BPSIO  ) 

C**INPUTS  FROM  OTHER  MODULES 
10  C**NONE 

C**INPUTS  FROM  MAIN  PROGRAM 

EQUIVALENCE  (C (2561) ,N  ) 

EQUIVALENCE  (C(2562),IPL  ) 

C**STATE  VARIABLE  OUTPUTS 
15  EQUIVALENCE  (C ( 170 3) , CFA11  ) 

EQUIVALENCE  ( C < 1 70 7 ) , CF A1 2  ) 

EQUIVALENCE  ( C ( 17 1 1 ) , CF A 1 3  ) 

EQUIVALENCE  ( C ( 171 5 ) , CFA2 1  ) 

EQUIVALENCE  ( C ( 1 710) , CF A22  ) 

20  EQUIVALENCE  ( C ( 1 723 ) , CF A2 3  ) 

EQUIVALENCE  ( C ( 172 7 ) , CF A  31  ) 

EQUIVALENCE  ( C ( 173 1) , CF A32  ) 

EQUIVALENCE  ( C ( 1 7 3 5 ) » CF A3 3  ) 

C**OTHER  OUTPUTS 
25  C»*NONE 

C**INITIAL  CALCULATION  OF  EULER  ANGLE  MATRIX  OF  DIRECTION  COSINES  (CFA) 


USPHI 

= 

SINO(BPHIO) 

UCPHI 

= 

COSD ( BPH I 0 ) 

USTHT 

= 

SlNO ( BTHTO) 

30 

UCTHT 

= 

COSD (BTHTO) 

USPSI 

= 

SINO( 8  PS  1 0) 

UCPSI 

COSD ( 8PSI0 ) 

CF  A 11 

UCPSI*UCTHT 

CF  A 1 2 

= 

USPSI*UCTHT 

35 

CF  A 1 3 

- 

-USTHT 

CFA21 

= 

-USPSI*UCPHI+UCPSI*USTHT*USPHI 

CFA22 

= 

UCPSI *UCPHI+USPSI*USTHT* US  PHI 

CFA23 

s 

UCTHT*  USPHI 

CF  A3 1 

= 

UCPSI*USTHT*UCPHI+USPSI*USPHI 

40 

CFA32 

= 

USPSI*USTHT*UCPHI-UCPSI*USPHI 

CFA33 

= 

UCTHT  *UCPH I 

C 

C**TNTEGRATED  PARAMATER  LIST  (IPL)  FOR  WPO , WQO , WRO , AND  CFAO 
IPL(N)  =  1700 

45  IPL ( N+i)  =  1704 

IPLJN+2!  =  1708 
IPHN+3)  =  1712 
IPL ( N  +  4  >  =  1716 
IPL ( N+5 )  =  1720 
50  IPL  (N  +  6)  =  1724 

IPLfN+7)  =  1720 
IPL ( N+  8 )  =  1732 
IPL<N+9)  =  1736 
IPL ( N+l 0 )  =  1740 
IPUN  +  ll)  =  1744 


55 


167 


SUBROUTINE 


60 


65 


70 


D  2  I 


C DC  6600  FTN  V3.0-P30  4  OPT  =  l  301 


N  ■=  N  +  12 

C*»  RESET  ANGULAR  RATE  DERIVATIVES  TO  ZERO. 
C  ( 1 7  0  0 )  =  0  . 

C ( 1704)  =  0. 

C ( 170  8 )  =  0  . 

C ( 1712 )  =  0. 

C ( 171 6)  =  0  . 

C ( 172  0 )  =  0  . 

C ( 1724 )  =  0. 

C ( 17  28)  =  0  . 

C ( 1 732 )  =  0. 

C (1736)  =  0. 

C ( 1 740 )  =  0. 

C ( 1 744)  =  0  . 

RETURN 

ENO 
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COC  6600  FT N  V3.0-P304  DPT  =  1  30 

C **  ROTATIONAL  DYNAMICS  MODULE 

SUBROUTINE  02 
COMMON  C ( 35 10 ) 

C 

5  C¥¥0 AT  A  INPUTS 

EQUIVALENCE  ( C ( 1 421) , RAIL  ) 

EQUIVALENCE  ( C ( 1 7 4 3) , FMI X  ) 

EQUIVALENCE  < C (i 749 > » FM I Y  > 

EQUIVALENCE  (C ( 1 750 ) , FMIZ  ) 

10  EQUIVALENCE  ( C < 1751)  »CRAD  ) 

EQUIVALENCE  ( C ( 3 5 0 3) , OPTN3 ) 

EQUIVALENCE  ( C < 3 50 4 ) , OPT N4  ) 

C 

C**INPUTS  FROM  OTHER  MODULES 
15  EQUIVALENCE  <C(  380)»RANGO  ) 

EQUIVALENCE  ( C < 1 30 3 )  ,FMX B A  ) 

EQUIVALENCE  (C ( 1304) ,FMY8A  ) 

EQUIVALENCE  ( C ( 1 30 5 ) , FMZB A  ) 

EQUIVALENCE  ( C < 1 30 8)  ,RDELCG > 

20  C 

C**INPUTS  FROM  MAIN  PROGRAM 
C**STATE  VARIABLE  OUTPUTS 

EQUIVALENCE  ( C < 1 70 0 ) , CF A110 ) 

EQUIVALENCE  ( C ( 170 3 ) , CF All  ) 

25  EQUIVALENCE  < C < 1 7 0 4 ) , CFA12D) 

EQUIVALENCE  < C (  170 7 ) , CF A 1 2  ) 

EQUIVALENCE  ( C ( 1 7 0 8 )  , CF A 1 3D > 

EQUIVALENCE  (C ( 1711) ,CFA13  ) 

EQUIVALENCE  ( C ( 171 2 ) , C FA 21D ) 

30  EQUIVALENCE  ( C ( 1 715) , CF A21  ) 

EQUIVALENCE  (C <1 716) >CF A220) 

EQUIVALENCE  (C (1719) ,CFA22  ) 

EQUIVALENCE  ( C ( 1 720 ) , CF A23D ) 

EQUIVALENCE  ( C ( 1 723 ) , CF A2 3  ) 

35  EQUIVALENCE  < C < 1 72 A ) , CF A 31D) 

EQUIVALENCE  ( C  (1 727)  ,CFA31  ) 

EQUIVALENCE  (C ( 172 8 ) , CFA320) 

EQUIVALENCE  ( C ( 17 31 ) , CF A32  ) 

EQUIVALENCE  ( C ( 1 732 ) , CFA 33D) 

40  EQUIVALENCE  (C (i 735)  ,CF A33  ) 

EQUIVALENCE  (C(1736),WP0  ) 

EQUIVALENCE  (C(1739),WP  ) 

EQUIVALENCE  (C(1740)»WQO  ) 

EQUIVALENCE  (C(1743) ,WQ  ) 

45  EQUIVALENCE  (C(1744>,WRO  ) 

EQUIVALENCE  <C(1747),WR  ) 

C 

DISINTEGRATE  BODY  ANGULAR  RATES 
IF  ( OPT N3 «  GT «  0 . )  GO  TO  55 
50  WPG  =  CRAD*FMXBA/FMIX 

55  WQO  =  (CRAD*FMYBA4-(FMIZ-FMIX)*WP*WR/CRAD)/FMIY 

65  WRO  =  (CRAO*FMZBA+ (FMIX-FMIY) *WP *WQ/CRAO ) /FM IZ 

C 

^INTEGRATE  ATTITUDE  DIRECTION  COSINES 
55  49  CFA11D=(CFA21SHR-CFA31*HQ)/CRAD 
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SUBROUTINE  02  CDC  660Q  FT N  V3.0-P304  0PT  =  1  30 

CFA120= (CFA22*WR-CFA32*WQ)/CRAD 
CFA13D= (CFA23*HR-CFA33*WQ) /CRAD 
CFA21D  =  <CFA3i*WP-CFAll*WR)/CRAD 
CFA220  =  (CFA32*WP-CFA12*WR) /CRAD 
60  CFA230  =  <CFA33*WP-CFA13*WR> /CRAD 

CFA31D  =  (CFAll»WQ-CFA2i*WP)/CRAD 
CFA32D  =  <CFA12*WQ-CFA22*WP)/CRAD 
CFA33D  =  <CFA13*HQ-CFA23*WP) /CRAD 
RETURN 

65  END 
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5 


10 


IS 


20 


25 


30 


35 


40 


45 


50 


55 


C 


BASIC  INPUT  SUBROUTINE  OINPTi 


SUBROUTINE  OINPTI 
COMMON  C  (3510 ) 

EQUIVALENCE  ( C ( 3213 ) , ONA ME1 ) » 
C  (C (3328) »  0NAME4) 9 
C  <C (3440) ,NORNDM) , 
C  (C (3168)  » OUT  NO  ) , 


(C ( 3268 )  ;  ONAME2)  , 
(C  (2361) , NOMOO  ) , 
<C(3441),RN0MN0) , 
(C (2461) j  NOSUB  ) , 


C  (C(2355),IR  ),  (C(2357),VR  ), 

C  (C (3338) jLOSTAT) ,  (C ( 3340 ) , STATNO)  , 

C  <C(3Q67) jLISTNO) ,  ( C ( 3117 ), VALUE  ), 

* (C( 2005) , NOPLOT) , (C (2325) ,VLABLE) 

EQUIVALENCE  (C (1984) ,NPLOT  ) 

EQUIVALENCE  ( C ( 1985 ) , OUTPL T ) 

DIMENSION  ONAME3(10) ,ONAME4(lQ) 

DIMENSION  LISTNO(50)  ,  VAI.UE(50) 

DIMENSION  SUBN0(99),IR(2),VR(2) 


( C(3318) , ONA  ME3) , 
( C ( 2362) » MOD NO  ) , 
( C ( 3167)  f  NOOUT  )} 
(C  (2462) ,SUBNO  ) , 
( C ( 3339) ,NOSTAT)  , 
( C ( 30  66)  , NOLIST) , 
(C (2008) ,PLOTNO) , 


DIMENSION  RNDHNO (50) 

DIMENSION  ALPHA(3) ,ONAMEl (50) ,ONAME2 (50) ,OUTNO (50)  ,M0DN0(99) 

DIMENSION  STATNO  (100) 


OIMENSION  VLABLE(2,15> 

DIMENSION  OUTPLT (15) 

REAL  MOONO 
INTEGER  OUTNO 
INTEGER  RNDMNO 
INTEGER  STATNO 
INTEGER  OUTPLT 
JAR  =  0 
WRITE(6, 31) 

31  FORMAT  (11H1INPUT  DATA/) 

1  RE'AO(5r2)  IR(1)  ,  ALPMA(l)  ,  ALPHA(2)  >  ALPHA(3)  »IR(2)  tVR(l)  ,  VR(2) 
WRITE! 6, 30) IR(1) , ALPHA (1) , ALPHA (2) , ALPHA ( 3) , IR (2) » VR (1 ) , VR ( 2) 

30  FORMAT (I2>3A6jI5>5Xj1P2E15. 7) 

2  FORMAT (I2j3A6>I5>5Xj2E15.9) 

7  IF  (  IR  ( 1 )  ,NE.  1  )  GO  TO  3 

NOSUB  =  NOSUB  +  1 
SU8N  O ( NOSUB)  =  IR(2) 

GO  TO  1 

3  IF  (  IR  ( 1 !  ,NE.  2  >  GO  TO  4 
NOMOO  =  NOMOO  +  1 

MODNO (NOMOO)  =  IR<2) 

GO  TO  1 

4  IF ( IR ( 1 )  ,NE.  3)  GO  TO  5 
L  =  IR ( 2 ) 


C ( L )  =  VR ( 1 ) 

IF  ( VR ( 2)  .EQ.  0.)  GO  TO  1 
NOLIST  =  NOLIST  +  1 
LISTNO (NOLIST)  =  L 
VALUE (NOLIST)  =  VR ( 1 » 

GO  TO  1 


5  IF( IR ( 1)  ,NE.  4) GO  TO  6 
NOOUT  =  NOOUT  +  1 
IF  (NOOUT. GT. 50)  GO  TO  1 
ON AME1 (NOOUT) = ALPHA (2) 
ONAME2 (NOOUT)  =  ALPHA (3 ) 
OUTNO ( NOOUT)  =  IR(2> 
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GO  TO  1 

6  IF  ( IR  ( 1 )  ,NE.  5)  GO  TO  16 
IF  <VR<1)  .EQ.  0.)  GO  TO  17 
LOSTAT  =  LOSTAT  +  1 

17  NOSTAT  =  NOSTAT  +  1 
ST  ATNO (NOSTAT)  =  IR(2) 

ON AME3 (NOSTAT) = ALPHA (2) 
ONAME4  (NOSTAT) =ALPHA (3) 

GO  TO  1 

16  IF  ( I R ( 1 ) .NE.7)  GO  TO  19 
NPLOT=NPLOT  +1 
IF  (NPL0T.GT.15)  GO  TO  1 
00  20  1=1,2 

20  VLABLE  ( I , NPL 0 T ) = AL PHA ( I +1 ) 
OUTPLT (NPLOT) =IR(2) 

GO  TO  1 

19  IF  ( IR ( 2 )  .EQ.  0)  RETURN 
RETURN 
ENO 
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(C (20 16)  , 
(C (2015)  , 
( C ( 20 13)  , 
( C (2025) , 
( C (3168 )  , 

OUTNO ( 50 ) 

EQUIVALENCE  ( C ( 1505 ) t OUTPLT) 

INTEGER  OUTFIT 
DIMENSION  OUTPL  T ( 15) 

KCONV=0 

ITCNT  =  DOC  +  1.0 
PCNT  =  T-0. 000001 
PPNT=PCNT 
PGCNT  =  1 

DTCNT  =  (NOOUT  +  4>/5 
IF  (  ITCNT  „GE.  7)  GO  TO  2 
CALL  DUMPO 


OUTPUT  INITIALTZITION  SUBROUTINE  OUPT2 
SUBROUTINE  0UPT2 
COMMON 


ourmun 

EQUIVALENCE 


DIMENSION  GRAPH (300jl5)  ,  TIME(300) 


INTEGER 


PGCNT  ,  DTCNT  ,  OUTNO  ,  OPOINT 


2  TIME( 1) *T 
OPOINT  =1 
DO  10  J=l, NOPLOT 
K=OUTPLT  (J) 

10  GRAPH (1,J)=C(K) 
RETURN 
END 


PGCNT  )  , 
CPP  )  , 
DOC  )  , 
TIME  ), 
OUTNO  ) , 
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C 
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OUTPUT  SUBROUTINE  OUPT3 


SUBROUTINE  OUPT3 
COMMON  C  ( 35 1 0 )  , 

EQUIVALENCE  (C (31 68 ), OUT  NO  ), 

C  (C (2017) jOTCNT  ) , 

C  (C  ( 201 4 )  , I TCNT  ) , 

C  (C(2000),T  ), 

C  (C (2019) »  T  APEND) , 

C  (C(2Q05),PPP  >, 

C  (C(2023) , OPOINT) 

EQUIVALENCE  (C (19 8 5) , OUTPLT ) 

DIMENSION  0(50) , OUTNO(5Q> ,ONAMEi(50> ,ONAME2(50) 
DIMENSION  T IME  ( 30 0 ) , GR APH (3 0 0 , 15 > 


GRAPH 

( C  (321 8 ) , ONAME1) , 
(C(3167) , NOOUT  ) , 
(C ( 2003) , PCNT  ), 
(C  (2664) ,  OER  ), 
( C ( 20  0  8 ) ,PLOTNO) , 
(C ( 200  4) , PPNT  >, 


DIMENSION  OUTPL T ( 15 ) 
INTEGER  DTCNT,PGCNT,OUTNO 
INTEGER  OPOINT 


INTEGER  OUTPLT 
IF  (ITCNT.  GT.  6)  GO  TO  7 
I  TCNT  =  ITCNT  +  1 


( C ( 3268)  , ONAME2)  , 
( C ( 20 1 6)  , PGCNT  ) , 
( C ( 20 15) ,  CPP  )» 
(C(2018) ,TAPE  ), 
(C  (2009) , NOPLOT)  , 
(C (20  25) ,  TIME  )» 


CALL  DUMPO 
PGCNT  =  1 

7  IF  (OER.  EQ.  DERI)  GO  TO  8 
DERI  =  DER 
WRITE(6,20)T,DER 

20  FORMAT ( 1H  , 5HT IM E=Fl 4 . 7 , 2X, 10 HSTEP  SIZE  =  1 PEI 9 . 7) 

8  IF  (T  .LT.  PCNT) G0T015 

9  PCNT  =  PCNT  +  CPP 

IF  (PGCNT.  NE.  1)  GO  TO  3 

1  WRITE(6,2)  (ONAMEl(I) ,ONAME2(I) ,  I=l,NOOUT> 

2  FORMAT  (1H1,3X,4HTIME, 5X , 5(7X,2A6) // (20X.2A6, 7X , 2 A 6 , 7X , 2 A6, 7X , 
12A6,7X,2A6)/) 

PGCNT  =  2’0TCNT  +  4 

3  IF(PGCNT.GE.112)  GO  TO  1 
OO  4  I  =  1 , NOOUT 

J  =  OUTNO(I) 

4  B  ( I )  =  C(J) 

WRITE  (6,5)  T ,  (B ( I )  ,  I  =  1, NOOUT) 

5  FORMAT  (///,F14.7,1P5E19.7/(14X,1P5E19.7>> 

PGCNT  =  PGCNT  +  DTCNT  +  4 

15  IF(T.LT. PPNT. OR. NOPLOT.EQ.O) RETURN 
PPNT=PPNT+PPP 

KPOINT  =OPOINT  +1 
IF  (KPOINT-30Q)  16,13,18 

13  WRITE  (6,14) 

14  FORMAT  (//71H  ****  WARNING-PLOTTING  ARRAY  FILLED-ONLY  FIRST  300  P 
COINTS  PLOTTED  ****,//) 

16  OPOINT  =  KPO INT 
TIME  (OPOINT) =T 
DO  10  J=1 , NOPl OT 
K=OUTPLT(J) 

10  GRAPH (OPOINT  ,J)=C(K) 

18  RETURN 
END 
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SUBROUTINE  OUMPO 
C  PRINT  OUT  A  OUMP  OF  COMMON 
COMMON  NN  <  351 0 ) 

DIMENSION  A ( 9 ) ,MM<9) 

EQUIVALENCE  <A(1)  ,MM(D) 

WRITE  (6,100) 

DO  30  1=1,3510,9 
N=I-1 

DO  20  J=1 ,9 
K= J  +  N 

IF(ANO(IABS(NN(K) ) ,37770000000000000000B) )  5,5,10 
5  A ( J ) =NN  <  K) 

GO  TO  20 

10  MM ( J ) =NN  <  K) 

20  CONTINUE 

WRITE(6, 200)1 , A 
30  CONTINUE 

RETURN 

100  FORMAT  < 1H1) 

200  FORMAT (I5,1P9E14.7) 

ENO 
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SUBROUTINE  ZERO 
COMMON  C  t  3510 ) 

EQUIVALENCE  t C ( 1 98 4 ) , NPL OT  ) 
EQUIVALENCE  ( C t 20 23 ) , OPOINT ) 
EQUIVALENCE  ( C ( 2 3 61 ) , NOMOD  ) 
EQUIVALENCE  < C ( 2461) , NOSUB  ) 
EQUIVALENCE  ( C < 3 0 6 6)  ,NOL I  ST ) 
EQUIVALENCE  < C ( 3167 ), NOOUT  ) 
EQUIVALENCE  ( C ( 333 8 ) , L OST AT ) 
EQUIVALENCE  ( C ( 3339) , NOSTAT > 
EQUIVALENCE  ( C < 3 44 0 ) , NORNDM) 
EQUIVALENCE  ( C ( 20 0 8 ) , PL OTNO ) 
INTEGER  OPOINT 


LOSTAT  =  0 
NOSTAT  =  0 
NOSUB  =  0 
NOMOO  =  0 
NOOUT  =  0 
NORNOM  =  0 
NOLIST  =  0 
OPOINT  =  0 
NPLOT  =  0 
RETURN 
END 
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SUBROUTINE  SU0L1 
COMMON  C (3510) 

EQUIVALENCE  ( C ( 2 461 ) , NOSU B  ),  <C <2462 > » SUBNO  ) 
DIMENSION  SUBNO  (99 ) 

5  00  1  I  =  1,  NOSUB 

j  =  sueNom 

GO  TO  (  1,  2,  3 )  4,  5,  6,  7,  8,  9  ),  J 
2  CALL  INPT1 
GO  TO  1 

10  3  CALL  0UPT1 

GO  TO  1 
4  CALL  STGEi 
GO  TO  1 
9  CALL  CNTR1 

15  GO  TO  1 

6  CALL  RNDM1 
GO  TO  1 

7  CALL  A  U  X  A 1 
GO  TO  1 

20  8  CALL  AUXB1 

GO  TO  1 
9  CALL  AUXC1 
1  CONTINUE 
RETURN 

25  END 
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SUBROUTINE  SUBL2 
COMMON  C ( 35 1 0 ) 

EQUIVALENCE  ( C  (2 46 1 )  , N0SU8  ),  ( C < 2 462 ) , SUBNO  ) 
DIMENSION  SUBNO ( 99 ) 

5  00  1  I  =  1,  NOSUB 

J  =  SUBNO ( I ) 

GO  TO  (  1,  2,  3,  4,  5>  6,  7,  8,  9  ),  J 
2  CALL  INPT2 
GO  TO  1 

10  3  CALL  OUPT2 

GO  TO  1 

4  CALL  STGE2 
GO  TO  1 

5  CALL  CNTR2 

15  GO  TO  1 

6  CALL  RNDM2 
GO  TO  1 

7  CALL  AUXA2 
GO  TO  1 

20  8  CALL  AUXB2 

GO  TO  1 
9  CALL  AUXC2 
1  CONTINUE 
RETURN 

25  END 
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SUBROUTINE  SUBL3 
COMMON  C(3510) 

EQUIVALENCE  ( C ( 2461 ) , NO  SUB  ),  <C < 2462 ) , SUBNO  ) 
DIMENSION  SU  BNO ( 09 ) 

DO  1  I  =  1,  NOSUB 
J  =  SUBNO(I) 

GO  TO  (  1,  2,  3,  4,  5,  6,  7,  8,  9  ),  J 

2  CALL  INPT3 
GO  TO  1 

3  CALL  OUPT3 
GO  TO  1 

4  CALL  STGE3 
GO  TO  1 

5  CALL  CNTR3 
GO  TO  1 

6  CALL  RNQM3 
GO  TO  1 

7  CALL  AUXA3 
GO  TO  1 

8  CALL  AUXB3 
GO  TO  1 

9  CALL  AUXC3 
1  CONTINUE 

RETURN 

ENO 
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SUBROUTINE  STGE2 
COMMON  C ( 3  51 0 ) 

EQUIVALENCE  ( C ( 2 0 1 1 )  , KST EP  ),  ( C < 2 02 0 ) , LCONV  ),  (C ( 20 21 )  , KCONV  ) 

KCONV  =  0 

LCONV  =  0 

KSTEP  =  1 

RETURN 

END 
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SUBROUTINE  STGE3 


10 


20 


30 


COMMON  C(3510) , GRAPH, TEMPS 
EQUIVALENCE  (C(2000>,T 
EQUIVALENCE  ( C ( 2 0 1 0 )  , ST E P 
EQUIVALENCE  ( C ( 2 0 2 1 ) , KCONV 
EQUIVALENCE  (C ( 266 3 ) , HM A  X 
EQUIVALENCE  <C(2865>,EU 


(1000) 

>,  (C(2001),TF 
),  (C (2011) ,KSTEP 
>,  (C ( 2561) , N 
>,  ( C (2664 )  ,  DER 
>,  (C(2965) ,VAR 


EQUIVALENCE  ( C ( 197 3 ) , K ASE 
DIMENSION  DER  ( 1 0 1 ) 
DIMENSION  EU(100) 
EXTERNAL  AUXSUB 
CALL  G4 

IF  ( A  BS (  T-TF)  .LE.  0,01  ) 
IF  (  (TF-T)  .LT.  0.)  GO  TO 
IF  ( LCONV  .EQ.  2)  GO  TO  20 
IF  (LCONV  .EQ.  1)  GO  TO  10 


),  ( C ( 1 974)  ,NJ 
,  VAR(lOl) 

,  GRAPH(300,15) 


GO  TC  20 
10 


IF  (  DER.  LT.  0.)  DER  =  -DER*0.5 
RETURN 

IF  (DER.  GT.  0.)  DER  =  -DER*0.5 
KCONV  =  KCONV  +  1 
IF  ( KCONV  .GE.  10)  GO  TO  20 
RETURN 


PCNT  =  1.0 

DUMM  =  RECRM(LOC(X3) ,LOC(X4)> 

WRITE  (6,30)  X3 ,  X4 

FORMAT  ( 3 8 H 0  RESTART  INITIALIZERS,  X3  AND  X4 
IF (STEP  . EQ.ll.)GOTO  40 
PRFDER  =  DER ( 1 ) 

DER  ( 1 >  =  0. 

NJ=N-1 
NPT  =  0 


),  (C (2003) , PCNT  ) 
> ,  (C (2020) , LCONV  ) 
),  (C (2662) ,HMIN  ) 
),  ( C ( 2765) , EL  ) 
> 

) ,  ( C ( 1975)  , NPT  ) 
,  EL ( 1 0  0 ) 


ARE  2F11.0) 


CALL  AMRK ( AUXSUB > 
DER ( 1 >  =  PREDER 
40  CALL  OUPT3 
KSTEP  =  2 
RETURN 
END 
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ARO  NO.  SEVERITY  DIAGNOSTIC 


17 

I 

DER 

ARRAY 

NAME 

OPERAND 

17 

I 

OER 

ARRAY 

NAME 

OPERAND 

17 

I 

OER 

ARRAY 

NAME 

OPERANO 

19 

I 

DEP. 

ARRAY 

NAME 

OPERAND 

19 

I 

DER 

ARRAY 

NAME 

OPERANO 

19 

I 

DER 

ARRAY 

NAME 

OPERANO 

NOT  SUBSCRIPTED,  FIRST  ELEMENT  WILL  BE  USEO 
NOT  SUBSCRIPTED,  FIRST  ELEMENT  HILL  BE  USEO 
NOT  SUBSCRIPTED,  FIRST  ELEMENT  HILL  BE  USED 
NOT  SUBSCRIPTED,  FIRST  ELEMENT  WILL  BE  USED 
NOT  SUBSCRIPTED,  FIRST  ELEMENT  WILL  BE  USEO 
NOT  SUBSCRIPTED,  FIRST  ELEMENT  WILL  BE  USED 
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SUBROUTINE  AMRK ( AUXSUB) 

C*SINGLE  PRECISION  VERSION*  INDEPENDENT  VARIABLE  IN  OOUBLE  PRECISION 
COMMON  C ( 3510  >  ,  GRAPH  ,  T(IOOO) 

C  OOUBLE  PRECISION  DEL T,  TME 

5  C  OOUBLE  PRECISION  NEWC (200 ) , NEWP ( 20 0 > , OLO (200 ) 

DIMENSION  OLD ( 20 0  ) 

REAL  NEWC  ( 200 )  ,  NEWP(200> 

OIMENSION  0(101)  )  EL  (1 00 )  ,EU(100) 

DIMENSION  V(101)  ,  GRAPH( 3 0 0 , 15) 

10  EQUIVALENCE  (C < 2662) ,HMIN  ),  ( C ( 2663 ) , HM AX  ),  (C(2664>,0  ) 

EQUIVALENCE  (C(2765),EL  ),  (C(2865),EU  )  ,  <C(2965),V  ) 

EQUIVALENCE  (C ( 1971 ) ,RIT E  ),  (J1,N1) 

EQUIVALENCE  ( C  (1 973 )  , K AS E  ),  (C(1974),NJ  ),  (C(1975),NPT  ) 

DATA  KOUNT/O/ 

15  OATA  PI, P2 ,P3 ,P4/2 .29166667, 2. 45B33333, 1. 5416667, 0 .375/ 

OAT A  C 2, C3,C4/ 0.79 16667, 0.2083333, 0. 0416667/ 

IF (KASE . GT. 0 ) GO  TO  20 
N1  =  N  J 
J2= Jl+Nl 

20  J3= J2+N1 

J4=J3+N1 
J5=J4+N1 
J6=J5+N1 
J7=J6+N1 

25  J8=J7+N1 

J9  =  J8  +  Nl 
KASE=KASE+1 

C*NPT . EQ. 0  A OA MS -M OUL  TON  INTEGRATION  MOOE 
C*NPT.EQ.l  RUNGE-KUTTA  INTEGRATION  MODE 

30  C*NPT.EQ.2  BEGINNING  AOAMS-MOULT ON  WITH  RUNGE-KUTTA  START 

20  IF (NPT  . EQ. 1) GO  TO  40 
IF (NPT .EQ.2) GO  TO  30 
IF(OELT.NE. (.5*0(1)))  GO  TO  30 
IF ( KOUNT • LT . 3 ) GO  TO  40 

35  GO  TO  200 

30  KOUNT=0 
NPT  =  0 

C*ST A RT  RUNGE-KUTTA  INTEGRATION 
C’COMPUTE  K1 

40  40  DO  50  1=1, Ni 

NEWP ( I ) =V  ( I  +  1 ) 

50  CONTINUE 
TME=V(1) 

KOUNT  =  KOUNT  +  1 

45  DO  60  1=1, Nl 

60  0L0(I)=0(1)*0(I+1) 

C  COMPUTE  K2 

OEL  T=0 .5*0(1) 

TME=TME+OELT 

50  V ( 1) =TME 

00  70  1=1, Nl 
IF (KOUNT. NE. 2) GO  TO  65 
K1=J9+I 
T(K1)=NEWP(I) 

65  T(I) =D(I+1) 


55 
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60 


66 


70 


75 


80 


85 


90 


95 


100 


1.05 


110 


NEWP(I)=NEWP(I)+0 .5*0LD(I) 

70  V(I+1)=NEWP(I) 

CALL  AUXSUB 
DO  80  1=1, N1 
80  NEWC (I) =0 ( 1 ) *0 ( I  +1 ) 

•C  COMPUTE  K3 

DO  90  1=1, N1 

NEWP(I)=NEWP(I>+0.5* (NEWC  < I) -OLD ( I ) ) 

90  V  ( 1  +  1 ) =NEWP (I ) 

CALL  AUXSUB 
00  100  1=1, N1 
K2=J7+I 

100  T(K2)=0(1) *0(1+1) 

C  COMPUTE  KA 

TME=TME+DELT 
V ( 1) =TME 
DO  110  1=1, N1 
K2= J7+I 

NEWP(I>=NEWP(I>+T(K2>-0.5*NEWC<T> 

110  V ( I +1 ) =NEWP ( I ) 

CALL  AUXSUB 
00  120  1=1, Ni 
K3=J8+I 

120  T(K3>=0(1) *0(1+1) 

C  COMPUTE  VALUE  OF  FUNCTION 
DO  130  1=1, Nl 
K2  =  J7  +  I 
K3= J8+I 

NEWP( I) =NEWP< I >-T(K2>+0 .16666667* 

X (OLD (I) +NEWC<I)  +  NEWC  (I)+T(K2> +T ( K2 ) + T (K3 ) ) 
130  V(I+1)=NEWP(I) 

1 A  0  CALL  AUXSUB 
DO  150  1=1, Nl 
K5=J1 + I 
K  0  =  J2+ 1 
Kl= J3+I 
K2=-J  A  +  I 
K3= J5+ I 
K A  =  J6+ 1 
T(KA)=T(K3) 

T(K3)=T(K2) 

T(K2)=T(K1) 

T(K1)=T ( KO ) 

T (  KO ) =T(K5) 

T(K5)=T(I) 

150  T (I)=D(I+1) 

RETURN 

C  AOAMS-MOULTON  INTEGRATION 
200  KOUNT=KOUNT+l 
OELT=0 .5*0(1) 

DO  210  1=1, Nl 
Kl= J2+I 
K2=J3+I 
KA= J 1+ I 

C  COMPUTE  Y-PREOICTEO 
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OLD (I ) =  N£W°  (I ) 

NEMP(I)=OLO (I) +0(1>* <P1*T(I)-P2*T (K4)+P3*T(K1) -P4*T(K2) ) 
210  V  (I  +  i)=NEWP(I) 

TME=TME+0<1) 

V ( 1 ) =TME 
CALL  AUXSUB 
K5  =  0 

DO  250  1=1, N1 

K2=J2+I 

K4= J1 +1 

C  COMPUTE  Y-CORRECTED 

NEWC(I) =OLD(I)+D(l)* (P4 *0(1+1) +C 2*T ( I ) -C 3*T ( K4 > +C4 *T ( K2) ) 
250  CONTINUE 

C  INTEGRATION  IS  FINISHED.  SET  UP  DERIVATIVES  AND  EXIT. 

290  DO  300  1=1, N1 
NEWP ( I)  =  NEWC ( I) 

300  V (T  + 1 ) =NEWC  (I ) 

GO  TO  140 
END 


30 
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SUBROUTINE  AUXI 
COMMON  C (3510) 

EQUIVALENCE  ( C ( 2 36 1 )  , NOMOO  ),  < C < 2362 ), XMOONO )  ,  (C<2561),N  ) 

DIMENSION  XMOONO ( 99) 

5  N  =  1 

DO  1  1=1, NOMOO 
L  =XMOONO(I) 

GO  TO  (1,2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23 
1  , 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37), L 

10  2  CALL  All 

GO  TO  1 

3  CALL  A2I 
GO  TO  1 

4  CALL  A3 1 

15  GO  TO  1 

5  CALL  A4I 
GO  TO  1 

6  CALL  A 51 
GO  TO  1 

20  7  CALL  C1I 

GO  TO  1 

8  CALL  C2I 
GO  TO  1 

9  CALL  C3I 

25  GO  TO  1 

10  CALL  C 4 1 
GO  TO  1 

11  CALL  C5I 
GO  TO  1 

30  12  CALL  C6I 

GO  TO  1 

13  CALL  C 7 1 
GO  TO  1 

14  CALL  C8I 

35  GO  TO  1 

15  CALL  C9I 
GO  TO  1 

16  CALL  C10I 
GO  TO  1 

40  17  CALL  Oil 

GO  TO  1 

18  CALL  021 
GO  TO  1 

19  CALL  031 

45  GO  TO  1 

20  CALL  04 1 
GO  TO  1 

21  CALL  051 
GO  TO  1 

50  22  CALL  G1I 

GO  TO  1 

23  CALL  G2I 
GO  TO  1 

24  CALL  G3I 
GO  TO  1 
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60 


65 


70 


75 


30 


25  CALL  G4I 
GO  TO  1 

26  CALL  G5I 
GO  TO  1 

27  CALL  G 6 1 
GO  TO  1 

23  CALL  Si I 
GO  TO  1 

29  CALL  S2I 
GO  TO  i 

30  CALL  S3 1 
GO  TO  i 

31  CALL  S4I 
GO  TO  1 

32  CALL  S5I 
GO  TO  1 

33  CALL  S6I 
GO  TO  1 

34  CALL  S7I 
GO  TO  1 

35  CALL  S8I 
GO  TO  i 

36  CALL  S9I 
GO  TO  1 

37  CALL  S10I 
1  CONTINUE 

RETURN 

ENO 
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5 


10 


15 


20 


25 


30 


35 


50 


45 


50 


AUXSUB 

COC  6600 

FT  N 

V3.0-P304  OPT=i 

SUBROUTINE 

AUXSUB 

COMMON 

C (3510  ) 

EQUIVALENCE 

( C  ( 2  0  0  0  )  ,  T  ), 

(C (2361)  , NOMOD 

)  ? 

(  C ( 2362)  , XMODNO) 

EQUIVALENCE 

(C (2561)  , N  )  , 

( C ( 2  562 ) , I  PL 

)  > 

( C ( 2664)  , DER  ) 

EQUIVALENCE 

( C ( 2965 ) , V  AR  ) 

EQUIVALENCE 

(C (2020  ) , L  CONV) 

DIMENSION 

DER (101)  , 

VAR ( 10 1 ) 

> 

IPL(IOO) 

DIMENSION 

XMODNO (99) 

DO  50  1=2 

,  N 

J  =  IPL(I-l) 

50  C ( J  +  3 )  =  V ARC  I ) 

T  =  V AP  Cl) 

00  1  1  =  1 ,  NOMOD 
IF(LC0NV.EQ.2)RETIJRN 
L  =XMODNO ( I ) 

GO  TO  (1,2, 3,  4, 5, 6, 7, 0,9, 10, 11, 12, 13, 14, 15, 16,17,18,19,20,21,229 
123, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 3 6, 37 ),L 


2 

CALL 

A 1 

GO 

TO 

1 

3 

CALL 

A2 

GO 

TO 

1 

4 

CALL 

A3 

GO 

TO 

1 

5 

CALL 

A  4 

GO 

TO 

1 

6 

CALL 

A5 

GO 

TO 

1 

7 

CALL 

Cl 

GO 

TO 

1 

8 

CALL 

C2 

GO 

TO 

1 

9 

CALL 

C3 

GO 

TO 

1 

10 

CALL 

C4 

GO 

TO 

1 

11 

CALL 

C5 

GO 

TO 

1 

12 

CALL 

C  6 

GO 

TO 

1 

13 

CALL 

C7 

GO 

TO 

1 

14 

CALL 

C8 

GO 

TO 

1 

15 

CALL 

C9 

GO 

TO 

1 

16 

CALL 

CIO 

GO 

TO 

1 

17 

CALL 

01 

GO 

TO 

1 

18 

CALL 

D2 

GO 

TO 

1 

19 

CAI 

L 

03 

GO 

TO 

1 

20 

CALL 

D4 

GO 

TO 

1 
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21  CALL  05  ' 

GO  TO  1  ! 

22  CALL  G1 

GO  TO  1  ! 

60  23  CALL  G2  ! 

GO  TO  1  ! 

24  CALL  G3  ! 

GO  TO  1 

25  CALL  G4  ! 

65  GO  TO  1 

26  CALL  G5  5 

GO  TO  1  : 

27  CALL  G 6  ! 

GO  TO  1  ' 

70  28'  CALL  SI  ! 

GO  TO  1  ! 

29  CALL  S2  ! 

GO  TO  1  : 

30  CALL  S3  5 

75  GO  TO  1  : 

31  CALL  S4  ! 

GO  TO  1  ' 

32  CALL  S5  5 

GO  TO  1 

90  33  CALL  S6  ! 

GO  TO  1  ! 

34  CALL  S7  ! 

GO  TO  1  ! 

35  CALL  Sfi  ! 

85  GO  TO  1  ! 

36  CALL  S 9  ‘ 

GO  TO  1  : 

37  CALL  S10  ! 

1  CONTINUE  ! 

90  00  60  I  =  2,  N  ! 

J  =  IPLiI-1)  ! 

60  OER(I)  =  C(J)  i 

RETURN  ! 

END  ! 
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5 
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RESET  CDC  6600  FTN  V3.Q-P304  OPT=l  30/ 

SUBROUTINE  RESET  5 
COMMON  C (3510)  5 
EQUIVALENCE  ( C ( 3 0 6 6)  , NOL I  ST ) ,  (C (3067) , LISTNO) ,  I C  I  3117)  , V AL UE  )  5 
DIMENSION  L I STNO  ( 5  0)  ,  VALUE(50>  5 
DO  10  1=1,3510  5 
IFII.GE.1982.AND.I.LE.2000)  GO  TO  10  5 
IF(I.GE.2025.AND.I.LE,2354)  GO  TO  10  5 
IFII.GE.3167. ANO. I .LE.3338)  GO  TO  10  ! 
IF(I,GE.2361.AND.I .LE.2561)  GO  TO  10  ! 
IF(I.GE.3066.ANO.I .LE.3167)  GO  TO  10  S 


IF ( I . EQ. 3 

) 

GO 

TO 

10 

< 

IF  1 1 . EQ  .  4 

) 

GO 

TO 

10 

< 

IF ( I . EQ. 23 

) 

GO 

TO 

10 

c 

IF(I.EQ.24 

) 

GO 

TO 

10 

< 

IF ( I .EQ.26 

) 

GO 

TO 

10 

< 

IFII.EQ. 28 

) 

GO 

TO 

10 

c 

IF ( I . EQ . 7 

) 

GO 

TO 

10 

< 

IFII.EQ. 10 

) 

GO 

TO 

10 

<; 

IF( I.EQ. 2 

) 

GO 

TO 

10 

< 

IFII.EQ. 17 

) 

GO 

TO 

10 

< 

IFII.EQ. 18 

) 

GO 

TO 

10 

IFII.EQ. 2000 

) 

GO 

TO 

10 

< 

IF ( I.EQ. 2001 

) 

GO 

TO 

10 

IFII.EQ. 2015 

) 

GO 

TO 

10 

< 

IFII.EQ. 2013 

) 

GO 

TO 

10 

c 

IF( I.EQ. 2662 

) 

GO 

TO 

10 

c 

IF! I ,EQ  .2663 

) 

GO 

TO 

10 

< 

IFII.EQ. 2664 

) 

GO 

TO 

10 

c 

IF  1 1  .GE.50  .AND 

.1.1 

-E.1 

53) 

GO  TO 

10 

< 

IF! I .EQ. 3502 

) 

GO 

TO 

10 

< 

IFII.EQ. 3504 

) 

GO 

TO 

10 

< 

IFII.EQ. 50 

) 

GO 

TO 

10 

c 

IFtI.GE.120. 

AND  . 

I. 

LE. 

128) 

GO  TO  10 

<: 

IFII.EQ. 427 

) 

GO 

TO 

10 

< 

IFII.EQ. 431 

) 

GO 

TO 

10 

c 

IFII.EQ. 441 

) 

GO 

TO 

10 

c 

IF  I I.EQ. 442 

) 

GO 

TO 

10 

IFII.EQ, 443 

) 

GO 

TO 

10 

c 

IFII.EQ, 444 

) 

GO 

TO 

10 

< 

IFII.EQ. 446 

) 

GO 

TO 

10 

< 

IFII.EQ. 447 

) 

GO 

TO 

10 

< 

IFII.EQ. 449 

) 

GO 

TO 

10 

c 

IFII.EQ. 448 

) 

GO 

TO 

10 

<; 

IF! I.EQ. 450 

) 

GO 

TO 

10 

< 

IF  1 1  .  EQ .  45  3 

) 

GO 

TO 

10 

< 

IF! I.EQ. 456 

) 

GO 

TO 

10 

IFII.EQ. 457 

\ 

/ 

GO 

TO 

10 

IFII.EQ. 458 

) 

GO 

TO 

10 

< 

IFII.EQ. 464 

) 

GO 

TO 

10 

3 

IF (I .EQ.465 

) 

GO 

TO 

10 

c 

IFII.EQ. 850 

) 

GO 

TO 

10 

c 

IFII.EQ, 851 

) 

GO 

TO 

10 

c 

IFII.EQ, 852 

) 

GO 

TO 

10 

< 

IF! I.EQ. 853 

) 

GO 

TO 

10 

IFII.EQ. 855 

) 

GO 

TO 

10 

<; 
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TF(I.EQ.856 

) 

GO 

TO 

10 

IFd.EQ.864 

) 

GO 

TO 

10 

IF<I.EQ.863 

) 

GO 

TO 

10 

IF (I . EQ. 365 

) 

GO 

TO 

10 

60 

IFd.EQ.866 

) 

GO 

TO 

10 

IF (I.EQ. 877 

) 

GO 

TO 

10 

IFd.EQ.1103 

) 

GO 

TO 

10 

IFd.EQ.1107 

) 

GO 

TO 

10 

IF (I.EQ. 1111 

) 

GO 

TO 

10 

65 

IFd.F0.1115 

) 

GO 

TO 

10 

IFd.EQ.1140 

) 

GO 

TO 

10 

IFd.EQ.  1141 

) 

GO 

TO 

10 

IF ( I . EQ . 1142 

5 

GO 

TO 

10 

IFd.EQ. 1260 

) 

GO 

TO 

10 

70 

IFd.EQ. 1261 

) 

GO 

TO 

10 

IFd.EQ. 1262 

) 

GO 

TO 

10 

IFd.EQ. 1263 

) 

GO 

TO 

10 

IFd.EQ. 1264 

) 

GO 

TO 

10 

IFd.EQ. 1265 

) 

GO 

TO 

10 

75 

IFd.EQ. 1306 

) 

GO 

TO 

10 

IFd.EQ. 1307 

) 

GO 

TO 

10 

IFd.EQ. 1313 

) 

GO 

TO 

10 

IFd.EQ. 1314 

) 

GO 

TO 

10 

IFd.EQ. 1315 

) 

GO 

TO 

10 

«0 

IFd.EQ. 1316 

) 

GO 

TO 

10 

IFd.EQ. 1317 

) 

GO 

TO 

10 

IFd.EQ.  1403 

) 

GO 

TO 

10 

IFd.EQ. 1401 

) 

GO 

TO 

10 

IFd.EQ. 1402 

) 

GO 

TO 

10 

85 

IFd.EQ, 1404 

) 

GO 

TO 

10 

IFd.EQ. 1414 

) 

GO 

TO 

10 

IFd.EQ. 1415 

) 

GO 

TO 

10 

IFd.EQ. 1416 

) 

GO 

TO 

10 

IFd.EQ. 1417 

) 

GO 

TO 

10 

90 

IFd.EQ. 1418 

) 

GO 

TO 

10 

IFd.EQ, 1419 

) 

GO 

TO 

10 

IFd.EQ.  1420 

) 

GO 

TO 

10 

IFd.EQ.  1421 

) 

GO 

TO 

10 

IFd.EQ.  1627 

) 

GO 

TO 

10 

95 

IFd.EQ. 1615 

) 

GO 

TO 

10 

IFd.EQ. 1619 

) 

GO 

TO 

10 

IFd.EQ. 1623 

) 

GO 

TO 

10 

IFd.EQ. 1739 

) 

GO 

TO 

10 

IFd.EQ. 1743 

) 

GO 

TO 

10 

100 

IFd.EQ. 1747 

) 

GO 

TO 

10 

IFd.EQ. 1751 

) 

GO 

TO 

10 

IFd.EQ. 1752 

) 

GO 

TO 

10 

IFd.EQ.  2008 

) 

GO 

TO 

10 

IFd.EQ.  2009 

GO 

TO 

10 

105 

IFd.EQ. 2010 

) 

GO 

TO 

10 

IFd.EQ. 2012 

) 

GO 

TO 

10 

IFd.EQ.  2005) 

GO  TO  : 

10 

IF ( I . EQ •  20 06)  GO  TO  10 
IFd.EO.2023)  GO  TO  10 
IFd.EQ.  1326)  GO  TO  10 
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IF ( I. EQ . 1327)  GO  TO  10 
IF(I.E0.1328)  GO  TO  10 
IF (I. EO. 1320)  GO  TO  10 
IF (I.E0.133Q)  GO  TO  10 
115  IF ( I . EQ . 133 1)  GO  TO  10 

IF( I.EO. 1332)  GO  TO  10 
IFtI.FQ.54  )  GO  TO  10 

IFd.E0.55  )  GO  TO  10 

IF<I.EQ.56  )  GO  TO  10 

120  IFtI.EQ.58  )  GO  TO  10 

IFtI.EO.57  )  GO  TO  10 

IF ( I. EQ. 73  )  GO  TO  10 

IFtI.EQ.59  )  GO  TO  10 

IFtI.EQ.1206)  GO  TO  10 
125  IF ( I.EQ.1207)  GO  TO  10 

IF( I.EO. 1208)  GO  TO  10 
IF ( I. EO . 1252)  GO  TO  10 
C ( I )  =  0  .0 
10  CONTINUE 

130  IF  (NOLIST  .EQ.  0)  RETURN 

DO  1  I  =  1,  NOLIST 
J  =  LIS  T  NO ( I) 

1  C(J)  =  VALUE ( I ) 

RETURN 

135  ENO 

MORE  MEMORY  WOULD  HAVE  RESULTEO  IN  BETTER  OPTIMIZATION 
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C  DUMMY  SUBROUTINE 


SUBROUTINE  GUMMY 

C 

ENTRY 

fll 

ENTRY 

All 

5 

C 

ENTRY 

A2 

ENTRY 

A  2 1 

C 

ENTRY 

A3 

C 

ENTRY 

A  3 1 

ENTRY 

A  4 

IQ 

ENTRY 

A4I 

ENTRY 

A5 

ENTRY 

A5I 

ENTRY 

Cl 

ENTRY 

C1I 

15 

ENTRY 

C2 

ENTRY 

C2I 

ENTRY 

C3 

ENTRY 

C  31 

ENTRY 

C4 

20 

ENTRY 

C4I 

ENTRY 

C5 

ENTRY 

C5I 

ENTRY 

C6 

ENTRY 

C6I 

25 

ENTRY 

C  7 

ENTRY 

C7I 

ENTRY 

C8 

ENTRY 

C8I 

ENTRY 

C9 

30 

ENTRY 

C9I 

ENTRY 

CIO 

ENTRY 

C10I 

C 

ENTRY 

01 

C 

ENTRY 

Dll 

35 

C 

ENTRY 

02 

C 

ENTRY 

021 

ENTRY 

03 

ENTRY 

031 

ENTRY 

04 

40 

ENTRY 

041 

ENTRY 

05 

ENTRY 

051 

ENTRY 

G1 

ENTRY 

G1I 

45 

C 

ENTRY 

G2 

ENTRY 

G2T 

C 

ENTRY 

G3 

ENTRY 

G3I 

C 

ENTRY 

G4 

50 

ENTRY 

G4I 

C 

ENTRY 

G5 

ENTRY 

G5I 

ENTRY 

G6 

ENTRY 

G  6 1 

55 

ENTRY 

SI 
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ENTRY 

S1I 

ENTRY 

S  2 

ENTRY 

S  2 1 

ENTRY 

S3 

60 

ENTRY 

S3I 

ENTRY 

S4 

ENTRY 

S4I 

ENTRY 

S5 

ENTRY 

S5I 

65 

ENTRY 

S6 

ENTRY 

S6I 

ENTRY 

S  7 

ENTRY 

S7I 

ENTRY 

SS 

70 

ENTRY 

S  8  I 

ENTRY 

S9 

ENTRY 

S9I 

ENTRY 

S10 

ENTRY 

S10I 

75 

ENTRY 

flUXAl 

ENTRY 

AUXA2 

ENTRY 

AUXA3 

ENTRY 

AUXB1 

ENTRY 

AUXB2 

00 

ENTRY 

AUXB3 

ENTRY 

AUXC1 

ENTRY 

AUXC2 

ENTRY 

AUXC3 

ENTRY 

CNTR1 

85 

ENTRY 

CNTR2 

ENTRY 

CNTR3 

ENTRY 

INPT1 

ENTRY 

INPT2 

ENTRY 

INPT3 

90 

ENTRY 

OUPT1 

C 

ENTRY 

OUPT2 

C 

ENTRY 

OUPT3 

ENTRY 

PROCES 

C 

ENTRY 

RESET 

95 

ENTRY 

RNOM1 

ENTRY 

RNDM2 

ENTRY 

RNDM3 

ENTRY 

STGE1 

C 

ENTRY 

STGE2 

100 

C 

ENTRY 

STGE3 

C 

ENTRY 

SU8L1 

C 

ENTRY 

SUBL2 

ENTRY 

KIKSET 

ENTRY 

COUNTV 

105 

RETURN 

END 
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**  FOR  USE  WITH  COOIH2,  FCN2  ,  fCN3 

SUBROUTINE  TERROR  ( XL ABEL ) 

COMMON  C ( 3510 ) 

EQUIVALENCE  < C  (  2 0 2 0 >  , L CON V) 

WRITE  (6,10)  XLABEL 

10  FORMAT  (  43HQ  NO  AERO  POINTS  SPECIFIED  FOR  ARG  ,  5X, 

C  7HTABLE  ,A6  ) 

CALL  EXIT 

ENTRY  AERROR 
WRITE  (6,20)  XLA8EL 

20  FORMAT  (  43H0  OUT  OF  AERO  TABLE  ARGUMENT  ARRAY  ,  5X, 

C  7HT ABLE  ,A6  ) 

OO  40  1=1202,1251,7 

40  W R IT  F  ( 6 , 30  )  C  ( I )  ,  C  ( I  +  1 )  ,  C  ( I  +2  )  ,  C  ( I  +3 )  , C  ( 1  +  4)  , C  ( I  +  5)  , C  ( 1+  6) 

30  FORMAT ( 1H  ,7E15,7> 

WRITE  (6,30)  C(2000),C(367),C(368),C(204),C(369),C(370),C(1117), 
C  C ( 11 1 8 )  ,  C ( 11 1 9)  , C ( 1 120  > 

L  C  0  N  V  =  2 

RETURN 

END 


FUNCTION 


SIND 


C DC  6600  FTN  V3.0-P304  OPT-1  30 


FUNCTION  SINO  (X) 

SIND=  SIN  (X/57. 29578) 

RETURN 

END 
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COSO 


COC  6600  FTN  V3.0-P304  OPT=l  30 


FUNCTION  COSO  (X) 

COSO=  COS  (X/57. 29578) 

RETURN 

END 
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FUNCTION 


AT  AND 


COC  6600  FTN  V3.0--P304  OPT=i  30 


FUNCTION  ATANO  <Y,X> 
IF(X.EO.O.O.ANO.Y.EQ.O.O)  GO  TO  1 
ATANO=  57 .2957  8* AT  AN2  <Y,X) 
i  CONTINUE 

5  RETURN 

END 
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subroutine; 
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TABLE  COC  6600  FTN  V3.0-P304  OPT  =  l  30 

SUBROUTINE  TABLE  ( X , XI , Y I , NX , XK , XL  ABEL , Y ) 

DIMENSION  XLABEL  (2) 

Y  =  COO I  M2  (X , XI ,YI , NX, XK, XLABEL) 

return 

END 
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SUBROUTINE 


5 


T  ABL  2  COC  6600  FTN  V3.0-P304  OPT  =  l  30 

SUBROUTINE  TABL2 ( X , Y , X YI , ZI , NXY , XINTER , XL  ABEL , Z) 

DIMENSION  XYK2)  ,NXY(2) 

Z  =  FC00N2  (X,Y,XYI,XYI(NXY+1) , ZI , NX Y ,NXY ( 2 ) , NX Y , X INT ER, X  LABEL ) 

RETURN 

END 
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SUBROUTINE 


5 


TABL3  CDC  6600  FTN  V3.0-P304  OPT=l  30 

SUBROUTINE  TABL3 ( X , Y , I , XY Z I , W I , NXY Z , XINTER , XL  ABEL , W) 

DIMENSION  XYZI (1> ,NXYZ«1) 

MZI  =  NXYZ(l)  +  NX YZ  <  2 )  +  t 

W  =  FCODN3  CX,Y,Z,XYZI,XYZICNXYZ*1) ,XYZI(NZI) ,  WI,NXYZ(3>, 

C  NXYZ<2) ,NXYZ, XINTER, XLABEL) 

RETURN 

END 
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SUBROUTINE 


TIMEV 


CDC  6600  FT  N  V3.0-P304  OPT  =  l 


30 


SUBROUTINE  TIMEV (DELT) 

RETURN 

END 
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SUBROUTINE  WRITE  CDC  6600  FTN  V3.0-P304  OPT=l  3C 

SUBROUTINE  WRI TE ( I  A , F , N) 

RETURN 

END 
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SUBROUTINE  PLOT  4 


COC  6600  FTN  V3.Q-P3P4  OPT  =  i  30 


5 


10 


15 


20 


25 


30 


35 


40 


45 


50 


SUBROUTINE  PL0T4  <  GRAPH  ,  NP ,  YL  ,  T  ,  NPLOT 4  ,  NPI.OT 2  ,  NOPL  OT ) 
C**PLOT  SUBROUTINE 

DIMENSION  GRAPH (  30  0,15) , YL ( 2 , 15) , T < 3 0 0 > 

IF  (NPL0T4.EQ. 0)  RETURN 
KK  =  1 

XM1  =  GRAPH (1,1) 

YM1  =  GPAPH  (1,2) 

XT  1  =  GRAPH (1,3) 

YT1  =  GRAPH (1,4) 

XM2  =  XM1 
YM2  =  YM1 
XT2  =  XT1 
YT  2  =  YT1 
DO  1  1=1, NP 

XM1  =  AMIN1(GRAPH(I,1) ,XMi) 

YM1  =  AMIN1(GRAPH(I,2) ,YM1) 

X  T 1  =  AMIN1(GRAPH(I,3),XT1) 

YT1  =  AMIN1 (GRAPH(I,4) ,YT1) 

XM  2  =  AMAX1(GRAPH(I,1) ,XM2) 

YM2  =  AMAX1 (GRAPH (I , 2) , YM2) 

XT2  =  AMAX1 (GRAPH(I,3)  ,XT2) 

1  YT2  =  AMAX1(GRAPH(I,4),YT2) 

XMIN  =  A  MINI ( XM1 , XT1 ) 

YMIN  =  AMINKYMl  ,YT1) 

XMAX  =  AMAX1 (XM2,XT2) 

YM AX  =  AMAX1 ( YM2 , YT2 ) 

DEL  X  =  ABS ( XMA  X-XM IN) 

DEL Y  =  A  BS ( YM  AX- YM IN ) 

DEL  =  AMAX1 (OELX , DEL Y) 

XI  =  XMIN 

Y 1  =  YMIN-(OEL-OELY) /2. 

X2  =  Xl+OEL 
Y2  =  Yl+DEL 
CALL  CAMRAV  (9) 

CALL  SETMIV  (24,0,24,24) 

CALL  DXDYV(1,X1,X2,DX,N, I, NX, 25. , IERR) 

CALL  DXDYV(2,Y2,Yi,DY,M,J,NY,25. ,IERR) 

CALL  GRID1V (KK, XI, X2,Y2, Yl,OX,DY ,N,M, I , J , NX, NY) 

DO  2  J  =  1 , 3 , 2 
K  =  J  +  l 
UTIME  =  0. 

1X1  =  NXV (GRAPH  ( 1 , J )  ) 

IY1  =  NYV (GRAPH (1,K)  ) 

DO  2  IJ=2 ,NP 

1X2  =  NXV(GRAPH(IJ,J)) 

IY2  =  N YV (GRAPH ( I J  , K ) ) 

IF( T ( I J) -( ,5+UTIME) )  7,3,3 

3  UTIME  =  T ( I J) 

CALL  P0INTV(IX2,IY2,-17,2) 

7  IF ( J-2)  4,5,5 

5  CALL  PCINTV (IX2,IY2,0,2) 

GO  TO  6 

4  CALL  LINEVdXl,  IY1,IX2,  IY2) 

6  1X1  =  1X2 

2  I Y 1  =  IY2 
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SUBROUTINE  PLOT  4  CDC  6600  FT  N  V3.0-P304  OPT=l 

LAB1=(YL(1,1  ) .ANO.  77777777 777700 000 000 B)  .OR. (SHIFT ( YL (2  ,1  )  ,-36) 
*.AND.77777777B> 

LAB2=(YL  (1,2  ) . ANO . 7 7 77 7 7 77 7 7 7 70 0 0 00 0 0 0 8 ) . OR . ( SH IFT ( YL ( 2 , 2  )  ,-36) 
* . ANO. 77777777B) 

60  CALL  PPINTV (10, LABI  ,524,12) 

CALL  APRNTV (0,-14, 10 ,LA82  ,12,524) 

RETURN 

END 


30 
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SUBROUTINE  PLOT2  (  GRAPH  ,  NP ,  YL  , T  ,  NPLOT  4,  NPLOT 2  ,  N0PI.0 T) 

DIMENSION  GRAPH (300 ,15) ,YL(2,15) ,T(300) 

DIMENSION  IXP ( 4) , I YP ( 4 ) , MRKPT (4) 

DATA  (MRKPT ( I ) , 1=1, 4)/42, 16,30,63/ 

OAT  A ( I XP ( I) ,1  =  1, 4) /4, 28, 4, 20/ 

DATA ( I YP  (I), 1  =  1, 4) /1 76, 776, 41 1,411/ 

IF  ( NPLOT 2 . ECU  0 )  RETURN 
JX  =  NPLOT4+ 1 
JY1=  JX+1 

JYN  =  NPL  0T4+NPL0  T  2 
X 1=  GRAPH ( 1 ,JX) 

X  2=  XI 

DO  110  1  =  2, NP 

Xl=  AMIN1  (GRAPH(I,JX> ,X1> 

110  X2=  AMAX1  (GRAPH(I,JX),X2) 

Yl=  GRAPH(1,JY1) 

Y2=  Y 1 

DO  120  JY=JY1 , JYN 
DO  120  1=1, NP 

Yl=  AMIN1  ( GRAPH (I,JY) »Yi) 

120  Y2=  AMAX1  ( GRAPH ( I ,  JY)  ,  Y2) 

CALL  CAMRAV  (9) 

CALL  SETMIV  (36,24,24,24) 

CALL  DXDYV  < 1 , X 1 , X2 , OX , N , I , NX , 14 , Q , I  ERR) 

CALL  DXDYV  (2 , Y 1 , Y2 , DY , M  ,  J  ,  NY ,14 . 0 , 1  ERR) 

CALL  GRIOIV  (l,Xl,X2,Yl,Y2,DX,DY,N,M,I,J,-3,-3) 

IMARK=  1 

DO  140  J Y=JY1 , JYN 
1X1=  NXV  (GRAPH (1, JX) ) 

I Yl=  NYV  (GRAPH(1, JY) ) 

DO  130  I J=2 , NP 

1X2=  NXV  (GRAPH ( I J  ,  JX) ) 

I Y  2=  NYV  ( GRAPH ( I J, JY) ) 

CALL  LINEV  ( I XI , I Y1 , 1X2, I Y2 ) 

CALL  LINEV  ( 1X1 , IY1 , 1X2  ,  IY2) 

1X1=  1X2 
130  I Y 1=  TY2 

IF  (IMARK.GT.4)  GO  TO  140 

CALL  APLOTV  ( NP , GRA PH ( 1  , JX) , GRAPH ( 1 , JY ) ,20,20 ,1, MRKPT (1MARK) ,IRR) 
140  IMARK=  IMARK  +  1 

LAB1=(YL(1,JX)  . AND.77777777777700000000B) .OR . ( SHI  FT ( YL ( 2 , JX)  ,-36) 
*  .  ANO. 777777773) 

CALL  PRINTV  (10,  LABI  ,468,8) 

1=1 

OO  150  JY=JY1 , JYN 
IF  (I.GT.4)  GO  TO  150 
IYQ=  IYP(I)  +  28 

CALL  PLOTV  (IXP<  I)  , XYQ, MRKPT (  I) ) 

L A B2=  ( YL  ( 1. ,  JY )  .  AND  .  777777777777000 00  V(IQ R->  ,OR.  ( SHIFT  ( YL  ( 2 ,  JY)  ,-36) 
* . AN0.77777777Q) 

CALL  APRNTV  ( 0 , -1 4 , 10 , L A B2  ,IXP( I)  ,  IYP ( I)  ) 

150  1=  1+1 
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SUBROUTINE  PLOT  2 


COC  f>60  0  FTN  V3.0-P304  OPT  =  l 


RETURN 

END 


COC  6600  FTN  V3.0-P304  OPT=l 


SUBROUTINE  PLOTN  ( GRAPH , NP, YL , T, NPLOT 4 , NPLOT2 , NOPLOT > 
DIMENSION  GRAPH  (300, 15)  ,YL(  2,15)  ,T  (300) 

N'PL0T3  =  N0PL0T-NPLCT2-NPL0T4 
IF  (NPLOT3.LE.0)  RETURN 
00  100  NM=i , NPLOT 3 
JY=NPLOT4+NPLOT2+NM 
IX=MOO ( NM, 3) 

IF ( IX  .EQ.  0 ) IX  =  3 
11=712-344* (IX-1) 

JJ=28+344*(IX-i) 

KK  =  1 

IF(IX  .GT.  1 ) KK=  2 
X1=T (1) 

X2=T (NP) 

Y1=GPAPH(1, JY) 

Y2  =  Y1 

OO  50  1=1, NP 

Y1=AMIN1 (GRAPH(I, JY) , Yl) 

50  Y2=AMAXi(GRAPH(I,JY) ,Y2) 

CALL  C AM R AV ( 9 ) 

CALL  SETMIV(24,0,II,JJ) 

CALL  OXOYV(1,X1,X2,OX,N,I,NX,14. , IERR) 

CALL  OXDYV(2,Yl,Y2,DY,M,J,NY,lQ.,IERR) 
CALLGRI01V(KK,X1,X2,Y1,Y2,0X,DY,N,M, I,J,NX,-3) 

IX1=NXV ( XI) 

IY1  =  NYV  (GRAPHd,  JY)  ) 

OO  55  I J=2 , NP 
IX  2=NX V ( T ( I J ) ) 

IY2=NYV (GRAPH (IJ,JY) ) 

CALL  LTNEV(IX1,IY1,IX2,IY2) 

IY1=IY2 
55  IX1=IX2 

CALL  PRINTV  (-11, 10HTIME  (SEC) ,468, 696-34 4 MIX-1) ) 

LA82=< YL (1,  JY ). AND. 777777 7777 77 OOOOOOOQB).  OR.  (  SHI  FT  ( YL  (  2  ,  JY)  , 
* .AN0.77777777B) 

100  CALL  APRNTV  ( 0 , -14 , 10  ,  L AB2  , 4 , 890 -344* ( IX- 1) ) 

RETURN 

ENO 
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c 
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SUBROUTINE  C0DIM2 
PURPOSE 

TO  FIT  A  SET  OF  POINTS  WITH  A  CONTINUOUS  FUNCTION  THAT 
SIMULATES  A  FRENCH  CURVE  TYPE  CURVE  FIT. 

USAGE 


Y  =  CODIM2 

X 

X 

,  YI 

*  N  ,  F  , 

XL  ABEL  ) 

OR 

Y  =  COOI Ml 

<  x  ,  XI 

,  YI 

»  N  ,  F  , 

XLABEL  ) 

CESCPIPTION  OF  PARAMETERS 

X  ARGUMENT  -  INDEPENDENT  VARIABLE 

XI  ARRAY  OF  INDEPENDENT  VARIABLE  ,  X 

Y I  ARRAY  OF  DEPENDENT  VARIABLE  ,  Y 

N  NUMBER  OF  POINTS  REPRESENTED  BY  XI  AND  YI  ARRAYS 

F  INTERPOLATION  CONTROL 

LESS  THAN  ZERO  -  STRAIGHT  LINE  INTERPOLATION 
POSITIVE  -  END  INTERVAL  INTERPOLATION 
0.0  STRAIGHT  LINE 
1.0  FULL  PARABOLIC 

XL  ABEL  HOLLERITH  FIELD  OF  UP  TO  6  CHARACTERS 
REMARKS 

EXTRAPOLATION  IS  DONE  BY  PASSING  A  STRAIGHT  LINE  THRU  THE 
TWO  POINTS  AT  THE  END  INTERVAL. 

THE  ARRAY  OF  THE  INDEPENDENT  VARIABLE  ,  XI  ,  MAY  BE  IN 
EITHER  INCREASING  OR  DECREASING  ORDER. 


35 


FUNCTION  C0DIM2  (  X  ,  XT  ,  YI  ,  N  ,  F  ,  XL  ABEL  ) 


DIMENSION  XI ( N)  ,  Y I { N>  ,  P(2)  ,  E(2)  ,  IS(4,2>  ,  XL  ABEL  (2) 
LOGICAL  OUT 
ENTRY  COOIM1 

40  OATA  IS  /  -1,  0,  -2,  -1,  0,  1,  -1,  0  / 


45 


50 


100  OUT  =  .FALSE. 

N 1  =  N 

XX  =  X 
J  =  1 

IF  1  N1  -  2  )  150  ,  1200  ,  300 

150  CALL  TERROR  ( XL A  BEL ) 

200  C0DIM2  =  YI(J) 

RETURN 


300 


KPL  =  1 

KPU  =  2 

IF  (  XI 1 11  -  X I  ( 2 )  )  400 
DO  500  J  =  1  ,  Ni 

IF  (  XX  -  XI(J)  )  900  , 

209 


150  ,  600 


55 


400 


200  ,  500 


FUNCTION 


COOIM2 


C DC  6600  FTN  V3.0-P3Q4  OPT-1  30, 


500  CONTINUF 

GO  TO  800 

600  DO  700  J  s  i  ,  Ni 

IF  (  VI(J)  -  XX  )  900  ,  200  ,  700 

60  700  CONTINUE 


65 


70 


75 


no 


85 


800  J  =  Nl 

CALL  AFRROR  (XLA9EL) 

GO  TO  1300 

900  OUT  =  F  .LT.  0.0 

IF  (  J  -  2  )  1200  ,  1000  ,  1100 

1000  KPL  =  2 

GO  TO  1500 

1100  IF  (  J  -  Nl  )  1500  ,  1400  ,  1300 

1200  J  =  2 

1300  OUT  =  .TRUE. 

1400  KPU  =  1 

1600  AL  =  (  XX  -  XI(J-l)  )  /  (  XI(J)  -  XI(J-l)  ) 

C00IM2  =  AL  *  YI(J)  +  <  1.0  -  AL  )  *  YI(J-1  ) 

IF  <  OUT  )  RETURN 

OO  1600  KP  =  KPL  ,  KPU 

P(KP)  =  0.0 

DO  1600  K  =  1  ,  3 
JO  =  J+KPFK-4 

XO  =  XI(JO) 

YO  =  Y I  (JO) 

Ji  =  J  +  IS  C  K, KP 1 

J2  =  J  +  IS(K+1,KP) 

1600  P ( KP )  =  P (KP)  +  YO  *  (  XX  -  XI(Jl)  )  /  (  XO  -  XI(Jl)  ) 
*  *  (  XX  -  X I  ( J2 )  )  /  (  XO  -  XI(J2)  ) 

IF  (  KPL  .NE.  KPU  )  GO  TO  1700 
Jl  =  3  -  KPL 

P ! J 1 )  =  CODIM2  +  F  *  (  P ( KP )  -  CODIM2  ) 

E  ( J 1 )  ='  ABS  (  P(J1)  -  CODIN2  ) 

1700  E ( KP )  =  ABS  (  P ( KP )  -  C00IN2  ) 

1800  CONTINUE 


95  IF  (  E(l)  +  E ( 2 )  .EQ.  0.0  )  RETURN 

C00IM2  =  (  (  E(l)  *  AL  )  *  P ( 2 )  +  (  E(2)  *  !  1.0  -  AL  )  ) 

7  *  P(l)  )  /  (  (  Ed)  *  AL  )  ♦  (  E  ( 2 )  *  (  1.0  ~  AL  )  )  ) 


100 


RETURN 

END 
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C 

c 

c 

r* 

U 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

120 

130 

132 


C 

C 

133 


134 

140 


C 

150 

155 


160 

165 

C 

200 


2-0  IMF  NS  TONAL  INTERPOLATION  SUBPROGRAM. ...FCODN 2 


CALLING  Sfc  1UENCE  - 

Z  =  FCO0N2 (X, Y,XI , YI , ZI , NXO , N Y, NX , XK , XL  A  BEL) 


X 

Y 

XI 

YT 

ZI 

NXO 

NY 

NX 

XK 

XLABFL 


ARGUMENT  -  1ST  VARIABLE 

ARGUMENT  -  2ND  VARIABLE 

ARRAY  OF  1ST  VARIABLE 

ARRAY  OF  2 NO  VARIABLE 

ARRAY  OF  DEPENDENT  VARIABLE 

DIMENSIONED  SIZE  OF  XI  ARRAY 

NUMBER  OF  VALUES  IN  ARRAY  YI 

NUMBER  OF  VALUES  IN  ARRAY  XI 

END  INTERVAL  INTERPOLATION  CONTROL  CONSTANT 

HOLLERITH  FIELO  OF  UP  TC  6  CHARACTERS 


THIS  ROUTINE  DIFFERS  FROM  FCOOM2  IN  THAT  THE  ZI  ARRAY  DOES  NOT 
HAVE  TO  BE  PACKFC  -  I.E.,  IT  DOES  NOT  HAVE  TO  OCCUPY  CON¬ 
SECUTIVE  LOCATIONS  IN  CORE,  AND  IN  THAT  EITHER  OR  BOTH  THE 
XI  AND  YI  ARRAYS  MAY  BE  IN  ASCENDING  OR  DESCENDING  ORDER. 


FUNCTION  FC00N21X, Y,XT, YI , ZI , NXD , NY, NX , XK, XLABEL ) 


DIMENSION  XI(1),  Y I ( 1) ,  ZI(NXO,l),  T<4)  ,  XLABEL ( 2 > 

IF  (NY.GT.4)  GO  TO  120 
N3  =  l 

N3  IS  THE  INOEX  NUMBER  OF  THE  FIRST  Y  CURVE  TO  BE  USEO 
N4=NY 

N4  IS  THE  COUNT  OF  THE  NUMBER  OF  Y  CURVES  TO  BE  USEO 
GO  TO  200 


N4  =  4 

IF  (YI(1)“YI(2))  130,160,133 
CO  132  K  =  1 , NY 
IF  (Y-YI (K) )  150,150,132 

CONTINUE 
GO  TO  140 


DO  134  K=1 , NY 
IF  (YI(K)-Y)  150,150,134 

CONTINUE 
N3=NY-3 
GO  TO  200 

IF  (K-3)  155,155,160 
N3=  1 

GO  TO  200 

IF  (K-NY)  165,140,140 
N3=K-2 


L  =  N3 

DO  300  1=1, N4 
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FUNCTION  FC00N2  CDC  6600  FT N  V3.0-P304  OPT=l  3G 

T  <I)=C00IN2(X,XI,ZI(1,L) , NX, XK, XL  A  BEL ) 

300  L=L+ 1 

f' 

FCOON2=COOIH2 ( Y, YI (N3)  ,  T  ,N4 ,XK,XLA8EL ) 

RETURN 

END 
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5 


iU 


15 


?Q 


25 


30 


35 


40 


45 


50 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

0 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

120 

130 

132 

c 

133 

134 
140 


C 

150 


C 

160 

C 

200 


3-OIMENS  IONAL  I  NT  EPPOL  AT  ION  SUBPROGRAM .... FCODN3 


CALLING  SEQUENCE 


W  -  FCOON3(X,Y,Z,XI,YI,ZI»MI,NZ,NY,NX,XK,XLA0EL) 
X  =  ARGUMENT  -  1ST  VARIABLE 
Y  =  ARGUMENT  -  2N0  VARIABLE 
Z  =  ARGUMENT  -  3RO  VARIABLE 
XI  =  ARRAY  OF  1ST  VARIABLE 
Y I  =  ARRAY  OF  2ND  VARIABLE 
ZI  =  ARRAY  OF  3RO  VARIABLE 
MI  =  ARRAY  OF  DEPENDENT  VARIABLE 
NZ  =  NUMBER  OF  POINTS  IN  ZI  ARRAY 


NY  =  NUMBER  OF  POINTS  IN  YI  ARRAY 
NX  =  NUMBER  OF  POINTS  IN  XI  ARRAY 

XK  =  END  INTERVAL  INTERPOLATION  CONTROL  CONSTANT 
XL  ABEL  =  HOLLERITH  FIELO  OF  UP  TO  6  CHARACTERS 


(0.0  TO  1.0) 


FCOON3  DIFFERS  FROM  FCOOM3  IN  THAT  THE  Ml  ARRAY  GOES  NOT  NEED 
TO  BE  PACKED,  I.E.,  MI  NEED  NOT  OCCUPY  CONSECUTIVE  LOCATIONS 
IN  CORE,  AND  ANY  OR  ALL  ARRAYS  MAY  BE  IN  EITHER  ASCENOING  OR 
DESCENDING  OROFP. 


FUNCTION  FCOON3(X,Y,Z,XI,YI,ZI,WI,NZ,NY,NX,XK,XLABEL) 

DIMENSION  XI(1) , YI (1)  ,ZI  (1)  ,  WI(NX,NY»i) ,T(4),XLA8EL(2) 

IF  (NZ.GT.4)  GO  TO  120 
N4=  1 
N5  =  NZ 
GO  TO  200 


N5=4 

IF  <ZI(1)-ZI(2> )  130,150,133 
DO  132  K=1 , NZ 
IF  ( Z -Z I  (K ) )  150,150,132 

CONTINUE 
GO  TO  140 

DO  134  K=1 , NZ 
IF  < Z I  ( K ) -Z )  150,150,134 
CONTINUE 
N  4  =  N  Z  -  3 
GO  TO  200 

IF  (K.GT.3)  GO  TO  160 
N4=l 

GO  TO  200 

IF  (K.GE.NZ)  GO  TO  140 
N4  =  K-2 


L  =  N4 

DO  300  1=1, N5 

T ( I ) =  FCOON2  <X,Y,XI,YI,WI (1,1, L) , NX , NY , NX , XK , XLA BEL ) 
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FUNCTION  FCODN3  COC  6600  FTN  V3.0-P304  OPT  =  l 

300  L=L  +  1 

C 

FOOON3  =  CODIM2  <Z,ZI <N4) , T , NZ , X K , XL ABEL ) 

RETURN 

END 


30 


214 


EXAMPLE  I .  PROGRAM 


INPUT  DATA 


1 

OUPT  2,3 

3 

“0 .  -0 

i_ 

STAG2,3 

4 

”0.  -0 

2 

G2-T 

23 

-0.  -0 

2 

G3 

24 

-0 «  -0 

2 

G  5 

26 

-0,  ~0 

2 

A 1 

2 

-0 .  -0 

2 

A  3-T 

4 

-0.  -0 

? 

A  2 

3 

-0«  -0 

2 

D1 

17 

-0.  -0 

2 

02 

18 

-0.  -0 

3 

TF 

2001 

laOOQQOOOE-s-GQ  -o 

3 

T 

2000 

-0.  1 

3 

PPP 

2005 

1 «  0 0  0  0 0  0  OE-G  2  1 

3 

PEPPLT 

2006 

loOOOOOOOE+OO  "0 

3 

C^P 

2015 

5.0000000E-02  i 

3 

ooc 

2013 

6. GG00GGOE*OO  1 

3 

0ERX1< 

2664 

2. 0000000E-03  1 

3 

pppi 

120 

6.0000000E-03  -0 

3 

CPP1 

121 

l.ooonoooE-oi  -o 

3 

OERi 

122 

2. OOOOOOOE-03  -0 

3 

XTL 

123 

2. OOOGOGOE+Oi  -0 

3 

XLL 

124 

9.0000000E*00  -0 

3 

YLT 

125 

7.O00OOOOE+O0  -0 

3 

YLL 

126 

1  ..OOQGQOOE  +  OO  -0 

3 

ZTL 

127 

9.O000QO0E+O0  - 0 

3 

ZLL 

128 

1.0000000E+00  -0 

3 

0PTN4 

3502 

-0  .  -0 

3 

AGRAV 

1627 

3.2174000E+01  -0 

3 

TRAD 

1751 

5»  7295770E  +  01  -0 

3 

WP 

1739 

-0.  1 

3 

WQ 

1743 

-0.  1 

3 

WR 

1747 

-0.  1 

3 

RYE 

1615 

0,  1 

3 

RYE 

1619 

-0.  1 

3 

PZE 

1623 

-5. OOO0O0OE+O3  1 

3 

RTXE 

1651 

0.  1 

3 

PT  YE 

1655 

“Os  1 

3 

PTZE 

1659 

-5. 0000000E-i-03  1 

3 

EFORCX 

1326 

-0.  -0 

3 

EFT 

1332 

1.0000000E+01  -0 

3 

EJD 

1333 

2. 5540000E-01  i 

3 

CTASC 

69 

1.0000000E+00  1 

3 

FMTXO 

1419 

4. OOOOOOOE+OO  -0 

3 

FMIYO 

1420 

5.  OOOOOOOE-s-Oi  -0 

215 


3 

OPTNW 

50 

1 .OOQOOOOE+OO 

1.  OOOOOOOE4-CIO 

3 

XTAIL 

57 

-3. OOOOOOOE+OO 

-0. 

3 

XNOSE 

59 

2.5600000E+00 

-0. 

3 

XNOSE1 

73 

2.0000000E+00 

-0. 

3 

RFLGTH 

1307 

1 . 333330  0E  +  0  0 

-0. 

3 

RFAREA 

1306 

1. 3960000E+00 

-0. 

3 

OUT 

1415 

0, 2300000E+02 

-0. 

3 

OWP 

1416 

1.0000000E+00 

-0  . 

3 

CISP 

1414 

1.0000000E+00 

-0. 

3 

XINTER 

1252 

-i.OOOOOOOE+OO 

1.0000000E+00 

3 

PLOTNG 

2008 

io  2OQO00OE+O1 

-0. 

3 

PLOTN2 

1983 

-  0  » 

-0. 

3 

PL0TN4 

1982 

-0, 

-0  . 

3 

CMQ 

1207 

-i„ 2200000E+00 

-0. 

3 

CNR 

1203 

-lo 2200000E+00 

-0. 

3 

CLP 

1206 

-3. 3000QQQE-01 

-0. 

3 

TNOSOS 

58 

1, 00Q0000E+CG 

-0. 

3 

YPOS 

55 

6«  80000  0  0E  +  0  0 

-0. 

3 

XPOS 

54 

2  a  19660  0  0  E+- 0  i 

-0. 

3 

ZPOS 

56 

-3. OOOOOOOE+OO 

-0. 

3 

EFORCZ 

132  8 

1. 2000000E+03 

-0. 

3 

EFORCY 

1327 

-0  c 

-0. 

3 

EMOMZ 

1331 

-0. 

-0. 

3 

CNAA 

1273 

9.6000000E-02 

1.  OOOOOOOE  +  OO 

3 

CAA 

1274 

1.2000000E-01 

1.0000000E+00 

3 

CMA  A 

1272 

-1.3330000E-01 

1. 0000000 E+ 00 

3 

VMACH 

204 

8. 5000000 E- 01 

1. OOOOOQOE+OO 

3 

ALPHAD 

381 

-0. 

-0  . 

3 

STEP 

2010 

2.0000000E+00 

-0. 

4 

P 

1739 

-0, 

-0. 

4 

PHI  MSL 

352 

-0. 

-0. 

4 

CX 

1203 

”0. 

-0. 

4 

CL 

1209 

-0. 

-0  . 

4 

XNOSE1 

73 

-0. 

-0  . 

4 

0 

1743 

-0  , 

-0. 

4 

THETA  MSL 

350 

-  0 . 

-0, 

4 

CY 

1204 

“  0  . 

-0. 

4 

CM 

1210 

-0  . 

-0  . 

4 

AAN 

60 

-0. 

-0, 

4 

R 

1747 

>0. 

-0. 

4 

RSI 

351 

-0. 

“0. 

4 

CZ 

1205 

=  0. 

-0. 

4 

CN 

1211 

-0  . 

-0  . 

4 

ASN 

61 

-0. 

-0. 

4 

FMXPA 

1303 

-0. 

-0  . 

4 

FXP  A 

1300 

-0, 

-0  * 

4 

XNPOS 

90 

-0  . 

-0  . 

4 

VX  ED 

1600 

-0  . 

-0. 

4 

XTPOS 

93 

-0. 

-0. 
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4 

fmyba 

1304 

-0  . 

4 

FY  BA 

1301 

-0. 

4 

YNPOS 

91 

-0. 

4 

VYEO 

1604 

-0. 

4 

YTPOS 

94 

-0. 

4 

FMZB  A 

1305 

-0. 

4 

FZBA 

1302 

-0. 

4 

7NP0S 

92 

-0. 

4 

VZEO 

1608 

-0  . 

4 

ZTPOS 

95 

-0  . 

4 

RXEO 

1612 

-0. 

4 

RXE 

1615 

-0. 

4 

RTXEO 

1648 

-0. 

4 

PTXE 

1651 

-0. 

4 

OEL  X 

70 

-0. 

4 

RYED 

1616 

-0  . 

4 

RYE 

1619 

-0. 

4 

RTYEO 

1652 

-0. 

4 

RTYE 

1655 

-0. 

4 

OELY 

71 

-0. 

4 

RZEO 

1620 

-0. 

4 

RZE 

1623 

-0. 

4 

RTZEO 

1656 

-0. 

4 

RTZE 

1659 

-0. 

4 

OELZ 

72 

-0. 

4 

XLUN 

67 

-0. 

4 

YLUN 

45 

-0. 

4 

ZLUN 

44 

-0. 

4 

OIASC 

69 

-0. 

4 

TNOSOS 

58 

-0. 

7 

PITCH 

350 

-0. 

7 

YAW 

351 

-0. 

7 

ROLL 

352 

-0. 

7 

X  FT 

70 

-0. 

7 

Y  FT 

71 

-0. 

7 

Z  FT 

72 

-0. 

7 

XNPOS 

90 

-0. 

7 

YNPOS 

91 

-0. 

7 

ZNPOS 

92 

-0. 

7 

XTPOS 

93 

-0. 

7 

YTPOS 

94 

-0. 

7 

ZTPOS 

95 

-0. 

6 

-0 

-0. 

“0 


-0, 
-0  . 
-0  . 

-0. 

"0. 

-0. 


BURNOUT  TIME=  -0,0000  SEC, 

TIME=  .0020000  STEP  SI7E=  2. OOOOOOOE-G3 
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o  OO  o  o  O  O  O  O  O  O  O  O  o  CD  □  O  O  O  o  O  CD  CD  CD  CD  CD  CD  CD  CD  CD  CD  CD  CD  CD  CD  CD 


TIME 


p 

PHI  MSL 

CX 

CL 

XNOSEi 

a 

THETA  MSL 

CY 

CM 

AAN 

R 

PSI 

CZ 

CN 

ASN 

FMXBfl 

FXBA 

XNPOS 

VXEO 

XTPOS 

FMY9A 

FYBA 

YNPOS 

VYED 

YTPOS 

FMZBA 

FZBA 

ZNPOS 

VZEO 

ZTPOS 

RXED 

RXE 

RTXED 

RTXE 

DELX 

RYEO 

RYE 

RTYEO 

RTYE 

DELY 

RZEO 

RZE 

RTZED 

RTZE 

DELZ 

XL  UN 

YLUN 

ZLUN 

DIASC 

TNOSOS 

ro 

Si  .  0020000 


.0500000 


-2.0695088E-01 
-6 . 68  94  790  £  +  0  0 
2.4153754E-01 
-8.6156060E+00 
-4 . 15  96 130  E  +  Q  3 
1.6480  858E+02 
9. 3303335E+02 
5 • 78  22  214E- 0  3 
2.0964013E-01 
i • 16  43  60  7E  +  0 1 


-1.5307826E+01 
-1.7634668E+02 
6. 5107912 E+00 
-6.7799353E+01 
-2.9782226E+03 
1.74132Q4E+02 
9 . 32  69  389E  +  0  2 
2.1317294E-01 
5. 8394288E  +  0  0 
1. 1653485E+01 


-1. 6590527 E- 04 
-6. 3328780 E-03 
2.507  4949E-0  4 
-1. 4892836E+02 
1 . 0  8  0  4517E  +  0  2 
2 . 316  4429  E  +  0  3 
1.8660  784E  +  0  0 
5. 6034417E-G6 
-4.9999998E+03 
4.0800096E+00 


-2.7851998E-C1 
-4 . 6675290  E  +  0  0 
1.8112928E-01 
-5. 1445180 E+ 01 
1 . 6466820  E  +  0  2 
2.8342673  E  +  0  3 
4.6644281E+01 
4. 8094006 E-03 
-4 . 9  99  8584E  +  Q  3 
4.0  877244E+0  0 


1. 2000000 E-01 
8.698  3434E-0  2 
8. 9878075 E-01 
-  2 . 55  9988  3E  +  0  0 
1.5921883E-Q5 
4.650 19  05  E-04 
9.3304500E+02 
0  . 

0. 

1 . 80  0  279  0  E  +  0  0 


1.2000000 E-01 
1.37  21488  E-0 1 
1 . 31 8  5769E+  0  0 
-  2 . 54  352  54E+Q  0 
1.287 39 53E-02 
3.4992475E-01 
9 . 33  0  450  0  E+  0  2 
0. 

0. 

2.  00  99548E  +  0  0 


-5.2506054E-03 
-2 . 517  3116  E+  0  0 
9 . 971 83  04E- 02 
-5.8321674E+00 
4. 2241069E+00 
1. 227  3134E+02 
1.866 0900 E+00 
0. 

-5. 0000000 E+ 03 

1.0000000 E+00 


-4. 4526276E-02 
-1.95 10910 E+00 
1.107741 7 E-01 
-1 . 1Q40183E+01 
6. 9411358  E+  00 
1 . 4241198  E+ 02 
4 . 6652254E+  01 
0. 

-5. 0000000 E+03 

1.0000 000 E+00 


2.0000000E+00 
2. 8436694E-01 
1. 6654031E-02 
3. 0000116E+0  0 
-8 . 4109238E-0  6 
-1. 4952537E-04 
-1.  16344  0 1E-0  5 
5. 6034417E-06 
2. 1608488E-04 
1 •  0  0  0  0  0  0  0E  +  0  0 


2.0000000E+00 
2.  85  472  67E-0 1 
2.  284348  IE-02 
2. 998C072E+00 
—4. 6445650E— 03 
-1.0251282E-Q1 
-7.  9730  88  9E-0  3 
4. 8094006E— 03 
1.416260 1E-G 1 
l.OOOCOOOE+OO 


1000000 


1.2481862E+01 
2 •  3443  091E  +  Q  2 
i.oi45i49E+oi 
2.20  5S515E+01 
3. 9076237E+01 
2  < 1 339  426E  +  0 1 
9.3I75417E+Q2 
5. S744150E-01 
i • 1770  231E  +  0 1 
1 .17  27  48  8E+  0 1 


-3.3489561 E~ 01 
-1.5648242E+G1 
7. 0416169E-01 
-1.4896990E+02 
2 . 2140  0  86E  +  0 2 
2.6389254E+03 
9.3259764E+01 
2.3942227E-02 
-4 . 999412  0  E+Q3 
4.112  5418E+0  0 


1.20 00000 E-Oi 
1.78  34545E-0 1 
2 . 12  573  85E+  0  3 
-2. 42Q1874E+0  0 
5 . 42362  56E-0  2 
1 . 2784501 E+0  0 
9.3304500E+02 
0. 

0. 

2.5670701E+00 


1 .6262692  E- 02 
-2. 2747261 E- 01 
2 • 171 4599  E- 02 
-3. 3531790  E+Gl 
8 . 846  767  0  E  +  0  0 
1 . 2989395E+  02 
9. 330 4509 E+ 01 
0  . 

-5 . 0  0  0  0  0  0  0  E+  03 
1.0000000 E+00 


1500000 

2.5O07339E+O1 

4.4964340E-01 

1.2000000  E-0 1 

-1.3169227E+02 

-2 .54000  50  E  +  01 

2.2460230E-01 

6. 9161 447E  +  0  0 

1 . 2069791E+00 

2 . 7663162E+0  0 

1. 4552  031E+0 1 

-1 . 48  4370  9E+  02 

-2.1513902E+OO 

2.4872850E  +  0  3 

2  .7782759E+02 

1 . 112839  6E-0 1 

-1.3923050E+02 

3 . 4218660E+  03 

2. 4375570E+0  0 

9.2945912E+02 

1 . 3979613E+0  2 

9.3304500E+02 

9.7604790E-01 

6.2  573161E- 02 

0. 

1.8476279E+01 

-4, 998 66 05 E+ 03 

0. 

1 . 18  8  8  766E+01 

4.1 467704E  +  0  0 

3 . 2625342E+0  0 

1.4734960  E-0 2 
1 . 3933599  E+00 
-7. 8392862 E- 02 
-6.2849506 E+ 01 
8 . 489120 1 E+00 
1 . 50  59985  E+  02 
1 . 3995676E+  02 
0. 

-5.0000000E+03 

l.OQOQOOOE+OO 


.2000000 


3 . 4828569E+01 
6.240  2  22  OE+0 1 
•4.9055058E+00 
1. 5723295E+01 
3.4135125E+03 
2.8865271E+02 
9.2525060E+02 
1. 323441 OE  +  O  0 
2.5683007E+01 
1. 2067279E+01 


1.9 0342  53  E+0  0 
-2 .7336164E+01 
1.30  03987E+  0  0 
-1.4723394E+02 
3 . 13725  83E+0  2 
3 . 2913753E+0  3 
1 . 8618935E  +  0  2 
1 . 2044534E- 0 1 
-4.9975555E+03 
4. 1832326E  +  0  0 


1.200  0  0  00 E-0 1 
2 •  556958  0  E-0 1 
2 . 6825679E+  0  0 
-1.8538687E+00 
1.7205432E-01 
3 . 620 10  0  6E+0  0 
9.3304500E+02 
0  . 

0. 

3. 972060 3E+00 


1.7 852128E-02 
2.1411766E+00 
-1. 8073 689 E- 01 
-6.4519466 E+ 01 
6. 5215112  E  +  00 
1.44132D5E+02 
1. 8660902E+02 
0, 

-5.0000000E+03 

l.OOOOOOOE+OO 


2. Q30CQQCE+P0 
2. 3539556E-C 1 
2 • 0427898E-02 
2 . 9333284E  +  0  0 
-1. 1561444E-Q2 
-2. 2125170 E-Oi 
-4. 4744764E-C  2 
2.3942227E-02 
5 . 8795434E-01 
l.OOQCOO  OE  +  O  0 


2.000000  OE  +  O  0 
1 . 8404975E-0 1 
1. 77290  43E-0  2 
2.8 700 333E  +  C  0 
5. 488212 5E-03 
5.2675324E-02 
-1.606370  5E-0 1 
6.2573161E-02 
1 . 3394924E  +  0  0 
1. OOOOOOOE+O 0 


2.0000000E+00 
1 . 18 10  473E-01 
1. 2901211E-02 
3.0  8  3956  0E  +  G  0 
5 . 996502  6E-02 
1. 0668934E+00 
-4. 196654 7E-01 
1 • 20  44534E-0 1 
2 . 4445297E  +  0  0 
l.OOOOOOOE+OO 
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,25'D  00  DC 


.3030000 


4.9267442E+G1 
2  *  451 2975E  +  0  2 
-3.3G1Q444E+01 
2. 2260  265E+01 
2.26684102+03 
-3.5042015E+02 
9»  2378  996E  +  0  2 
1.5889025E+00 
3»  20 17 062E  +  0 1 
1. 2226  454E  +  0 1 


6.1387828E+01 
3 . 0665284E+0  2 
-5. 48 64 81 8E+ 01 
-9. 865236 6E+00 
-4.1184692E+02 
1. 2347  854E  +  02 
9.2291556E+02 
1 . 671951 2E  +  0  0 
3. 5954780E+01 
1 • 2439189E+0 1 


4  ■»  1791138E  +  0  G 
-1. 9303937 E+ 01 
8 . 0567268E-01 
-1.4596019E+02 
2.6714402E+02 
2.1631299E+03 
2.3243402E+02 
1 . 937  4835E- 0 1 
-4.9961063E+03 
4 . 2166  3  27E+  0  0 


7 .1942630  E+  0  0 
-4.6854461E+00 
-5.3665278E-02 
-1.45454 94 £+02 
3.9888609E+01 
3 .8353057E+02 
2.785961QE+02 
2. 7616101 E- 01 
-4.9943937E+03 
4.2442627E+00 


1.2000000E-01 
2 . 19  630  31E-0 1 
1.7783999E+00 
-1. 5885771E  +  0  0 
2.2772116E-01 
4.7399806E+00 
9 . 33  0  4500E+  02 
0. 

0. 

4 . 6439883  E+0  0 


1.2000000E-01 
3.2908  0 13E-0  2 
3. 1 641 18 7 E- 01 
-1.2340i90E+00 
2 . 7377114E-0 1 
5. 81 53886E+0  0 
9 . 330450  0E+0  2 
0. 

0. 

5 . 2892331E+0  0 


2. 54341S4E-02 
i.6131181E+00 
-2. 4507415 E- 01 
-3.3574277E+01 
3.7815060 E+00 
1 .10  60379  E+  02 
2. 3326127 E+ 02 
0. 

-5.0000000E+03 

1.0000000 E+00 


8 . 62932  50E- 03 
1 .5062857  E-02 
2.8114386E- 02 
-6.898 7157  E+0  0 
-3. 241 33 46 E- 01 
4. 6729958  E+  01 
2 . 7991353  E+  02 
0. 

-5. 0000000 E+ 03 
1.0000000 E+00 


2. 0000000 E+00 
6.37 1529  2E  *0  2 
4. 47 6943  8E-0  3 
3. 6583069E+Q0 
1 . 539365  OE-0 1 
2.9019  61 5E  +  0  0 
-8. 272556 9E-01 
1. 9374835E-0 1 
3. 89370  21E  +  0  0 
1.000000  0  E+0 0 


2.000000  0 E+0 0 
3 . 160550  3E-02 
5 . 5684871E-0  3 
4. 30  7394QE  +  0  0 
2.7  8961 43E-0 1 
5 . 361218  4E+0  0 
-1.  3174231E+0  0 
2.7616101E-01 
5. 6062762E+0  0 
l.OOOGOOOE+OO 


TTKF 


ro 


.3500000 


.4000000 


Q 


FMX8  A 

FMY8A 

FMZBA 

RXED 

RYED 

RZEO 

XL  UN 


8. 0993364E+Q1 
2 • 0  464844E  +  Q2 
-4.73627346+01 
3.46431076+01 
-2. 9528354E  +  0  3 
6 . 8 299 2 49E+  0  2 
9.22521956+02 
1.5839770E+00 
3 . 6578  322E+  01 
1. 27618346+01 


1. 0  655  872E  +  02 
4. 1677 145E  +  0G 
-2.8979652E-01 
3 • 6174295E+01 
-3.6552481E+03 
1 • 1771 0  75E  +  03 
9.2149982E+Q2 
1. 3960  351E+G0 
3.4982099E+01 
1. 3121720E+01 


PHI  MSL 

THETA  MSL 

PSI 

FX3  A 

FYBA 

F2B  A 

RXE 

RYE 

RZE 

YLUN 


1.0597466E+01 
8 . 9719353E  +  0  0 
-6.9063947E-01 
-1.4529636E+02 
-3.1239949E+02 
-1.2234108E+03 
3 . 2  47  3357E+  02 
3.5809112E-01 
-4.9925673E+03 
4.2765669E+00 


1 .5237661E+01 
1.4517597E+01 
-9.0668394 E- 01 
-1.4495632E+02 
-6.2186442E+02 
-1.8332089E+03 
3.7083655E+02 
4.32841O0E-O1 
-4. 990773 4E +03 
4.3161752E+00 


CX 

CY 

cz 

XNPOS 

YNPOS 

ZNPOS 

RTXEO 

RTYED 

RTZEO 

ZLUN 


1.2000000E-01 
-2. 58010 17 E- 01 
-1 . 010  4128E  +  0  0 
-6.9627620E-01 
3.2761147E-01 
7 . 03  342  05E  +  0  0 
9 . 33 0  450  0  E+0  2 
0. 

0. 

6.0200  523E+0  0 


1.2000000E-01 
-5. 1480148 E- 01 
-1.5175955E+00 
-9.6466952E-02 
3 . 93  62533E-0 1 
8 . 5848860E+  0  0 
9.330  4  50  0E+0  2 
0. 

0. 

6. 95  09316E+0  0 


CL 

CM 

CN 

VXEO 

VYED 

VZEO 

RTXE 

RTYE 

RTZE 

DIASC 


4. 0751693  E- 02 
-1.6488411E+00 
3.813  360  9  E- 0 1 
-1.3330133E+01 
-3. 0481878 E+ 00 
-1. 5595216 E+ 01 
3 . 2656578  E  +  0  2 
0  . 

-5. 0000000 E+ 03 

1.0000000 E+ 00 


4.7872897E-02 
-2.2657394E+0Q 
7 . 3058492  E-01 
-2.4491278E+01 
-4.2335111E+00 
-3. 9530189 E+ 01 
3 . 73218  04E+  02 

0  o 

-5.0000000 E+ 03 
1.0000000E+00 


XNQSE1 

AAN 

RSN 

XTPOS 

YTPOS 

ZTPOS 

OE  ;.X 

DELY 

OELZ 

TNOSOS 


2. 0000000E+00 
1.8380887E-02 
1. 7017328E-03 
4 . 79  5293  7E  +  0  0 
3.  93  80  969E-0 1 
7.9005055E+00 
-1.8322162E+00 
3.58  0911 2E-0 1 
7 . 432655  0E+ 0  0 
i.QOQOOOOE+OO 


2.  000000 0E +0  0 
1.1866880E-02 
i • 2129331E-0  3 
5 . 28  532  86E+0  0 
4.7879731E-01 
9 . 9786511E  +  0  0 
-2 . 381481 9E  +  0  0 
4.  32  841 0  8E-0 1 
9. 22  662  Q2E  +  0  0 
1. 0000000E+00 


450 00  CO 


1*3G  77747E+02 
-1.S844746E+02 
7 . 4966  IQ  8  E+Oi 
2.9627901E+01 
-2.2486693 E+ 03 
9 .9280279E+02 
9. 2G44719E+02 
1.2130895E+00 
3.3309425E+01 
1 »  34579 11E  +  0 1 


2.124  8241E+  0 1 
9 . 6834713E+  0  0 
-6.349470 6E-01 
-1.4461126E+02 
-5.7045597E+02 
-1.2534767E+03 
4. 1668307E+02 
4.9778065E-01 
-4.989G702E+03 
4 .361 8895E+0  0 


.5000000 


ro 

ro 

1N3 


1. 3909359E+02 
-2.1353033E+02 
1 . 2635232E+02 
-1.3060 44 3E+Q2 
2. 6890  332E+02 
-1.1107340E+02 
9. 20  01 40  2E+02 
1.  118430 6E  +  00 
3.3504076E+01 
1.3638901E+01 


2 .  3  22372  5E+  01 
-1.79618S8E+QG 
-1.3609085E-01 
-1 . 4439  0  60  E+  02 
-3. 6736490 E+ 01 
-1.8227487E+01 
4 . 6289262E+02 
5  .556 9735 E- 0 1 
-4. 98741076+03 
4 . 3  853444  £+0  0 


.6000000  1.2173766E+02  4. 1653545E+01 

3.1322530E+00  -1 .6787231E+01 

-1. 30 701996+00  5. 440 6267E-01 

-3.8719074E+01  -1 .440 1379E+ 0 2 

2. 2215915E+0  3  1.1443598E+03 

-2.1167995E+03  1 . 2023574E+03 

9.IS47171E+02  5 .5483558E+02 

1.211472GE+0O  6. 69 69949 E- 01 

4.0664299E+01  -4 . 9837555E+ 0 3 

1.3638901E+C1  4. 3368444E+0 0 


1.23QG00QE-01 
—  4.7337  060E— 0 1 
-1. 040 1487E+0  0 
4 . 638  5190  E-0 1 
4. 6981581E-Q1 
1. 0499156E+01 
9 . 3304  500E+0  2 
0. 

0. 

8. 0994935E+0  0 


1.2000000E-01 
-3. 053Q927E-02 
-1. 5148483 E-02 
1 . 0  711924E+  0  0 
5. 4961975E-01 
1 .26695126+0 1 
9.3304500  E+0  2 


.  7648465E+0  0 


.20  0  00  0OE-01 
.  5354182E-01 
.  0018685E+00 
.  5406833E+0  0 
.  9297212E-C1 
. 6983656E+01 
.3304500E+02 


•  7648465E+0  0 


4. 9666165E-02 
-1. 548 17 99 E+ GO 
6. 840  5756  E- 01 
-1.4S47096E+01 
-2.8638524E+00 
-1 . 9862914  E+0 1 
4 . 198  7029E  +  02 
0. 

-5.0000000E+03 
1. OOOOOOOE+OO 


-4. 8166293  E-02 
-2.1034299E-02 
4. 2393464 E-02 
-5.6031864E+00 
-9.1511639E-01 
3 . 069  0673E  +  01 
4 . 6652255E+  02 
0. 

-5. 0000000 E+03 
1. OOOOOOOE+OO 


4. 9338204E-03 
1.3911 362  E+  00 
-1. 3240325 E+ 00 
-2.4140777E+01 
1. 9570865E+00 
9. 2633112 E+ 01 
5.5982706E+02 
0. 

-5. 0000O00E+03 
1. 0000000E+00 


2. 000000 CE+00 
7.7975361E-03 
2  ■>  0  2  5985  IE- 03 
5 «  944293  0E  +  0 0 
5.  305520  8E-01 
1 . 143437  5E  +  0 1 
-2.98  722  0  4E+0  0 
4.9778  0  65E-0 1 
1 . 0  929761E  +  0 1 
1. OOOOOOOE+OO 


2. OOOOOOOE+OO 

0. 

0. 

6 • 62  84411E  +  Q  0 
5. 62819  54E-0 1 
1 . 2495238E+Q1 
-3.6299256E+00 
5.  5569  735E-01 
1. 2589271E+01 
1. OOOOOOOE+OO 


2. OOOOOOOE+OO 

0. 

0  . 

7. 8634941E+Q  0 
6. 424268 7E-01 
1. 5378027E+01 
-4. 991473 9E+00 
6.69  69949E-0 1 
1.6244482E+01 
1. Q0CQ000E+00 


700000C 


4.  0  727  795E  +  0 1 
1.2441459E+02 
-1.5827 82 1E+02 
-8.3507348E+01 
-1. 5864381E+02 
1.5740  073F+02 
9  » 1695  953E  +  0  2 
1.3601 571E+ 00 
4.7697954E+01 
1.36389Q1E+01 


5. 024678RE+G1 
-3.2695294E+00 
2. 223060 5E-01 
-1.4366608E+02 
3 . 5865132E+  01 
9 .33O80O4E+OG 
6 „ 465  891 1E+  02 
7 , 9943996E-0 
-4.9  792  857E  +  0 
4. 3868444E+0 


.8000000  '  -1.5813697E+01  5 . 159 858 9E+ 0 1 

-4. 099579 4E +00  6 . 8630 268E+ 0 0 

2 . 1344  493E+  0  0  -2 . 2261 391 E- 0 1 

-3.6038754E+01  -1 . 43390 50 E+0 2 

-1.5163546E+03  - 1 . 0 91 3732 E+ 0 3 

2. 0175359E+03  -8 . 232463 0E+0 2 

9.1601836E+02  7 . 3824679E+ 02 

1.3131468E+00  9.3465127E-01 

4.7561104E+01  -4.9744771E+03 

1.36389O1E+01  4.3863444E+00 


v-«  ro  CD 


1. 2000000 E- 01 
2 . 99  570  77E-0  2 
7 . 7937397E-03 
3 . 9856379E  +  0  0 
8. 0935649E-01 
2 . 0660308E+01 
9.330  4500E+0  2 
G  . 

0  . 

6 . 7648465E+0 0 


1 . 20 0  0 0  0  OE-0 1 
-S.1334354E-Q1 
-6 . 8895509E-0 i 
5 • 6598699E  +  0  0 
9. 2482359E-0 1 
2.512852  4E  +  0 1 
9. 330  450  0  E  +  0  2 
0. 

0  . 

8 . 7648465E  +  0  0 


-4. 2555211E-02 
1. 0821932E-02 
-4.1596649E-02 
-5 . 6844030  E+  00 
5. 9412358E-01 
3. 3152750 E+01 
6. 531 3156E+02 
0. 

-5.0000000E+03 
1 . 000  00  00  E+0  0 


-2. 641287OE-02 
-9. 5664285 E- 01 
1 . 2682156E  +  0  0 
-1.3775310E+01 
-1.22736 54 E+00 
-1.9751911E+01 
7 . 464  360  7  E+  02 
0. 

-5.0000000 E+0 3 

1.0000000 E+00 


2. 0QGQG00E+QQ 

0. 

0. 

9 . 53  75424E  +  0  0 
7. 67B1902E-01 
2.0  5432  0  5E+0 1 
-6. 542450 1E+0  0 
7 • 99  4399  6E-0 1 
2. 0  7 i 430  4E  +  01 
1.  0  0  0  0  0  G  0  E+0  0 


2 . 000000 0E+00 

0. 

0  . 

1 . 1153436E+01 
9. 4616809E-0 1 
2 . 5985168E+0 1 
-S . 1 69281 4E  +  0  0 
9. 3455127E-01 
2. 5522950E+01 
1 . 0  0  0 0  0  0  0E  +  0  0 


/<  OJ  OJ 


p 

PHI  HSL 

CX 

CL 

XNOSEi 

Q 

THETA  MSL 

CY 

CH 

AAM 

R 

PSI 

CZ 

CN 

ASM 

fmxba 

FXBA 

XNPOS 

VXED 

XTPOS 

FMY3A 

FYBA 

YNPOS 

V  YED 

YTPOS 

FMZ8A 

FZB  A 

ZNPOS 

VZED 

ZTPOS 

RXED 

RXE 

RTXED 

RTXE 

DELX 

RYEO 

RYE 

RTYED 

RT  YE 

DELY 

RZED 

RZE 

RTZEO 

RTZE 

DELZ 

XL  UN 

YLUN 

7.LUN 

DIASC 

TNOSOS 

ro 

r\3 

4^ 


.<3000000 

-5.4264 67 8E+01 

4.797Q7R2E+Q1 

1.2000000E-01 

-4. 7271993E-02 

2. 000000 0E  +  0  0 

-1. 1025387F+Q2 

-2.5231301E+00 

-3. 93 01187 E- 02 

-2. 8110257 E- 02 

0. 

1.29535266+02 

-4.25286606-02 

-2.  0  24  4446E-0  2 

5 . 4571335E- 02 

0. 

-5.44547616+01 

-1.4311985E+02 

7.3892829E+00 

-5. 5022838E+00 

1 . 294388  7E+0 1 

1. 1091997E+02 

-4. 68731676+01 

1. 0577751E  +  0  0 

-5.2161274E-01 

1. 0618991E+00 

-9.6056467E+01 

-2.4144851E+01 

3. 0342922E+01 

2 . 9936526E  +  01 

3. 00981566+01 

9.1509230E+02 

8.29793786+02 

9.3304500E+02 

8. 39740586  +  02 

-9.94679866+00 

1.19918636+00 

1.0596744E+00 

0. 

0  . 

1 . 0 596744E  +  0  0 

4. 7451 945E+0 1 

-4.9697698E+03 

0. 

-5. 0C00000E+03 

3 . 0  230  224E+0 1 

1. 3638901E+01 

k. 3863444E+  00 

8. 764S465E+0  0 

1.0000000E+00 

1. 000000 0E+00 

START  PLOTTING 

AT 

0 .0000000 

PLOTTING  ^NDFD 

AT 

0.0000000 

INPUT  DATA 


flLPHAD 

381 

3.00000006+00  -0 

VMACH 

204 

5.000GOQGE-01  -G 

step 

2010 

1.10000006+01  -0 

-0 

-0,  -0 

BURNOUT  TIMF=  -0*0003  SEC 


TIME 


P 


PHI  MSL 


Q 

THETA  MSL 

R 

PSI 

FMXBA 

FXB  A 

FMY6A 

FYBA 

FMZBA 

FZB  A 

RXED 

RXE 

RYEO 

RYE 

RZEO 

»ZE 

XL  UN 

YLUN 

ro 

INJ 


.0020000  -3.2073293E-02  -2 . 569 857 8E- 0 5 

-1.8557438E+0Q  -1 . 7847485E- 0 3 

4.  8398780 E— 0  2  5 . C274907E-05 

-1.3367621E+00  -5 . 1356266E+0 i 

-1. 0542320E+03  2 . 156 4173E+ 01 

3. 2919761E+01  1 . 296 0 613E+ 0 3 

5.488459BE+02  1 . 0 97 696 0 E+ 0 0 

1. 1580278E-03  1 . 1233423E-0 6 

1.58663116-01  -4.9999998E+03 

1. 1643602E+01  4 . C  8 0 0  0 1 9E+  0 0 


.  0500000  -1.0  7  62 983E  +  0  0  -2 . 5 10 5 40 8E- 0 2 

-5. 0882399E+01  -1 . 2 92 3 616E+ 0 0 

1.47  67  4326  +  00  3 . 66 6 0 0 78E-0 2 

-2.0814224E+00  -2 . 434 4532E+ 0 1 

--9.4693217F  +  02  2 . 5815268E+C1 

3. 66 68 1636+01  1 . 3327771E+ 0 3 

5 .487487  6E+  0  2  2 . 7439982E  +  01 

3 . 73  44829  E-0  2  8 . 9615316E-04 

4. 0  377621E+0  0  -4 . 9998 994E+0 3 

1. 16  45503E+0 1  4 . 0 S1520 1E  +  0 0 


cx 


c 


XNOSE1 


cv 

cz 

XNPOS 

YNPOS 

ZNPOS 

RTXED 

RTYED 

RTZED 

ZLUN 


1.2000000E-01 
5. 0351855E-02 
2 . 2429544E-0 1 
-2.5599960E+00 
3 . 19  2439  6E-0  6 
2 . 3292630  E-0  4 
5.4885000E+02 
0. 

0. 

1. 80  0 139  8E  +  0  0 


1.2000000 E-01 
6 . 1485124E-0  2 
3 . 10  6  4166E-0 1 
-2.5568281E+00 
2 . 5334741E-0  3 
1 . 5835362E-0 1 
5.4885000E+02 
0  . 

0. 

1.8950122E+00 


CM 

CN 

VXED 

VYED 

VZED 

RTXE 

RTYE 

RTZE 

DIASC 


-2. 3537737E-03 
“1.8489119E+G0 
5. 7720532E-02 
-2.0092783E+00 
8 . 430  4127  E- 01 
8 . 2841589E+  01 
1. 0977000 E+ 00 
0. 

-5.0000000E+03 
1. 0000000 E+03 


-4.0748188E-03 
-1. 7330752 E+ 00 
6. 6379419E-0  2 
-2 .127  2559  E+  00 
1 . 0  30  6798  E  +  0  0 
8 . 4241836E+  01 
2 . 74425  0  2  E+  0 1 
0. 

-5. 0000000 E+03 
1. 0000000 E+ 00 


A  AN 

ASN 

XTPOS 

YTPOS 

ZTPOS 

DEUX 

OELY 

DELZ 

TNOSOS 


2. 0000000E+G0 
i. 6315556E-01 
9 . 639989  4E-0  3 
3.000C040E+00 
-1.6662528E-06 
5.97  3378  6E-0  5 
•4. 015893 6E “06 
1 . 123342  3E-06 
1. 5997665E-04 
1. 000000 OE +00 


2.0000000  E+0  0 
1. 6347184E-01 
1. 1521688E-02 
3 . 0  P 17  564E+C  0 
-1. 0231259E-03 
3  a 2953094E-G2 
-2.5  2  C2649E-0  3 
8.9615316E-04 
1. 0  C  61 87 8E-01 
1.000000  0E+0  0 


looooao 


-4.8056322E+OQ 
-9. 971640 5E+01 
3S Q454235E+0Q 
-1.40763 43 E+01 
-S.4053198E+G2 
3 . 78  51 339E  +  0 1 
5 . 4  863  412E+  0  2 
8.9280559E-02 
7. 2914013E+00 
1 . 1655439E+  0 1 


-1.4988066 E- 01 
-4 . 90  89776E+ 0  0 
1. 5636738E-01 
-5 . 1421223E+01 
3.470&148E+01 
2.5579Q01E+02 
5 .4874&73E  +  01 
4.00  2  522  4E-0  3 
-4.9996Q29E+03 
4.0  865779E  +  0G 


.1500000  2.1 8  06  744E- 0 1  -3 . 9755 05 1E-0 1 

-1. 0822235E+02  -9 . 9939447E+ 0 0 

3. 9354416E+  0  0  3 . 610 6142 E-0 1 

no  9 . 82  25  863 E  +  0  0  -5 . 141 42 0 2 E+ 0 1 

o?  -1.7612881E+02  3 . 8 9272 0 8 E  +  0 1 

2 . 47  47926E  +  01  4 . 1518999E+ 0 2 

5.4846189E+02  8 . 230 2439E+ 0 1 

1.535Q916E-01  1 . 0 0 3 12 0 5E- 0 2 

9.4260626E+00  -4 . 999186 2 E+ 0 3 

1.16819786+01  4.0955510E+00 


.2000000  5 .34  099066+  0  0  -  3 . 0 40 0 347E-0 1 

-9.9269798E  +  01  -1 . 529354 0E+ 0  1 

4.4555859E+0  0  6 . 15 81413E-0 1 

5.9031811E+00  -5.1373351E+01 

2.9910460E+02  4 . 5123728E+G1 

-1.9403498 £-01  5 . 7856483E+ 02 

5.4816689E+02  1 . 0 971878E+ 02 

2. 29  36937E-0 1  1 . 9562236E-02 

1.  18  76152E  +  01  -4.9986547E+03 

1 o ±728  8176+31  4 . 1 0 76612E+ 0 0 


rooo 


1.20000  0  OE-0 1 
8 . 0992584E-0 2 
5. 9692865E-0 1 
-2. 5402682E+00 
1. 09&3140E-0  2 
6 . 1612  973E-0 1 
5.4885000E+02 
0. 

0. 

2. 169 677  8 E  +  0  0 


1 . 20  0  0  0  0  0  E-0  1 
9.  08  55537E-0  2 
9 . 69  047  41E-0 1 
-  2 . 49  60  363E  +  0  0 
2.59 18383E-0  2 
1. 2581131E  +  0  0 
5 . 48  8  50  0  0  E  +  0  2 


© 

.  5548679E+00 


.2000000 £-01 
. 0539161E-Q1 
•  3515377E+0  0 
. 41 79723E  +  0  0 
.61019296-02 
.  02  0  48&3E+0  0 
.48850C0E+02 

0  . 

3 . 01 22918E  +  0  Q 


-2. 6561193 E- 02 
-1. 2553673 E+ 00 
7.  0  75  71 41  £-0  2 
-2 . 8  62  0  3  0  0  £+  0  0 
1 . 3751349  E  +  0  0 
4. 1961469  E  +  01 
5. 4885005 E+ 01 
0  . 

-5. 0000000 E+ 03 
1. 0000000 E+ 00 


1. 7281687E-02 
-4. 6850893 E- 01 
4. 914653  6  E- 02 
-4.8046072E+00 
1. 6041419E+00 
4. 7799361E+01 
8.2327508E+01 
0. 

-5. 0000000 E+ 03 
1. OOOOOOGE+OO 


1.247  9968  E- 02 
3 .769490  4  E-Ql 
6. 257  8591 E-03 

-7.9215670  E  +  0 0 
1 . 7990 157  E+  00 
5.3  455832  E+01 
Is  0977001E  +  02 
0  . 

-5 .0000000 E+ 03 

1. 0000000 E+ 00 


2.GOOOQOOE+0O 
1. 57 16  757E-G 1 
1. 3859340E-02 
2.9993163E+QC 
-4. 155119  4E-0  3 
1. 4034366E-01 
-1. 0332178E-02 
4.0  0  2522  4E-0  3 
3. 9706615E-0 1 
1.  0  0  0  00  0  0E  +  C  0 


2. 000000 0E+00 
1. 36S8971E-01 
1 . 32637  0  IE-02 
2 . 9794877E+0  0 
-8. 5872 41 2 E-03 
2 . 932Q799E-Q 1 
-2.50687  8  9E-0  2 
1.003120  5E-0  2 
8. 1384315E-01 
1. OOOOOOOE+OO 


2. 000000 0E+00 
1 . 128175  6E-0 1 
1 . 14  83599E-0  2 
2.94  4822  GE  +  Q  0 
- 1 • 1 53951 8E-Q  2 
5. 5395695E-01 
-5 . 1228624E-02 
1 . 956223  6E-0  2 
1.  3452521  E->0  0 
1. OOOOOOOE+OO 


2500000 


9.4313397E+GQ 
-6.  60  91 914E+  0 1 
3  .43  0  2  77  2E+  0  0 
5.7385853E+00 
6.8915508E+02 
-4. 0206103E+Q1 
5.4771027E+02 
3.1554818E-01 
1 .4587689E+Q1 
1.17  69722E+01 


-3.1937586E-03 
-1 « 951 91 09E+  0 1 
8 .4589252E-0 1 
-5.1294758E+01 
5.2871495E+01 
7.0105702E+02 
1.3711636E+02 
3.315520  7E-0  2 
-4.9979940E+03 
4. 121265 9E+00 


.3000000  1. 3715  628E+0 1  5 .4026916E-01 

-1.6 0  83294E  +  0 1  -2 . 1 62 52 65E+0 1 

3.57 18491E-02  9 . 4224448E-0 1 

6.2488071E+00  -5 . 11 72660 E+0 1 

9 . 12  63  395E  +  0  2  5 . 9834025E  +  0 1 

-8.10000S2E+01  7.41232  63E  +  0  2 

5.4712805E+02  1 . 644 8764E+ 02 

4.0678426E-01  5 . 1 21 1 751 E-0 2 

1 . 7443  554E  +0 1  -4.9971935E  +  03 

1.18  52  329E+  0 1  4. 1342 079E  +  0 0 


1. 2000000 E- 01 
1. 2368  8  65E-0 1 
1.640Q671E+0G 
-  2 . 31 64641E+0  0 
6. 8776521 E-02 
2. 8613575E+0  0 
5.4885000E+02 
0. 

0. 

3 . 51 68145E+0  G 


1. 2000000 E-01 
1. 40310  92E-0 1 
1 . 73 81921 E+0  0 
-2.2121191E+00 
9. 0346566E-0  2 
3 . 74  99  8i7  E+  0  0 
5.4885000E+02 
0. 

0. 

4.0499890E+00 


1. 3849486E- 02 
1 . 1112222E+  00 
-6. 5460 726 E-02 
-1 • 1076542  E+01 
1. 9051460 E+ 00 
5 . 7335  625E+  01 
1 . 37  21 251 E  +  0  2 
0. 

-5. 00C0000E+03 
1. 0000000 E+00 


1. 6494926E-02 
1 . 5812363E+00 
-1.424 0638 E-01 
-1.2578819 E+01 
1 . 8591813  E  +  00 
5 . 8  3938  61E+  01 
1 . 64655  0  2  E+  02 
0. 

-5. 0000000 E+ 03 
1. 0000000 E+00 


2.Q0C00Q  0E  +  0  G 
8.7565854E-02 
7. 94G5990E-03 
2 . 92343 1 5E  +  0  0 
-8.588873 OE-O  3 
1. 0036437E+00 
-9 . 6150  352E-0  2 
3 • 31 552  0  7E-0  2 
2.0060090E+00 
1. OOOOOGOE+OO 


2. 000Q000E+0C 
6. 242D531E-02 
3.8895649E-03 
2.9558356E+00 
5.35  050  25E-0  3 
1. 700930 2E+00 
-1.6737135E-01 
5.1211751E-02 
2.806534 8E+00 
1. OOOOOOOE+OO 


228 


TINE 


.3503000 


.4000000 


p 

PHI  HSL 

CX 

CL 

X NOS El 

Q 

THETA  HSL 

CY 

CM 

AAN 

R 

PSI 

cz 

CN 

AS  N 

FMXBA 

FXB6 

XNPOS 

VXED 

XTPOS 

FMYBA 

FYBA 

YNPOS 

VYED 

YT  POS 

FMZ8A 

FZBA 

ZNPOS 

VZED 

ZTPOS 

RXED 

RXE 

RTXED 

RTXE 

DELX 

RYEO 

RYE 

RTYEO 

RTYE 

OELY 

RZED 

RZE 

RTZED 

RTZE 

DELZ 

XLUN 

YLUN 

ZLUN 

DIASC 

TNOSOS 

1. 8294174E+0 1 
3.92145S8E+01 
-5.4687477E+00 
6.4102130E+00 
9.0482914E+02 
-9.5069096E+01 
5. 4652745E  +  0  2 
4.9277  845E-01 
2 . 0296269E+01 
1. 1907369E+01 


2.2813502E+01 
8.7386036E+01 
-1.1646966E+G1 
6. 17  45249E+00 
6.968064QE+02 
-7.5271468E+01 
5.4S03323E+02 
5.5911605E-01 
2  .2987390E+01 
1. 1955  97&E+01 


1 . 3  85  94  50  E  +  0  0 
—2. 10406 63 E+01 
8.1688457E-01 
-5.1040329E+01 
6.1050559E+01 
6 . 8759716  E  +  02 
1.91828 83 E+02 
7 • 3754625E- 02 
-4.9962496 E+ 03 
4.1446912E+00 


2 .5259350E+00 
-1.7 8111 07 E+0 1 
4 .8  226561E-0 1 
-5.0 927415 E+ 01 
5 . 270  2210  E+01 
5.3285372E+02 
2 . 19 14218E+  0  2 
1 . B015735E-01 
-4.9951&65E+03 
4.1524033E+00 


1.2000000E-01 
1 . 43  534 87 E— 01 
1.61 65973E+  0  0 
-2. 1203846E+00 
1.07  81869E-01 
4.6694965E+00 
5.4885000E+02 
0. 

0. 

4. 6016979E+00 


1.  20  0  000  OE-0 1 
1. 241 6194E-01 
1. 2555604E+00 
-2.0393732E+00 
1. 2067215E-01 
5 „ 6165732E  +  G  0 
5. 48 850 00 E+0 2 
0. 

0  . 

5.1699439E+0Q 


1. 8655258E-02 
1 . 653  7619E  +  00 
“1. 7576194 E- 01 
-1.15547  47  E  +  01 
1. 5712504E+  00 
5 .6592  523  E+01 
1 . 920  9752  E  +  02 
0. 

-5. 0000000 E+03 
1. OOOOOOOE+OO 


2.  0090508  E-02 
1.3613921E+00 
-1. 503 45 37 E- 01 
-8.2982241E+00 
1 . 070  4259 E  +  0  0 
5 . 14649  06  E  +  01 
2. 19540  0  2  E+  02 
0 . 

— 5.UQOOOOOE+03 
l.COOOOQOE+OO 


2. OOOOOOOE+OO 
4 . 4294656E-0  2 
1.7535446E-03 
3. 0683791E+00 
3.3  835782E-0  2 
2. 673287  6E  +  00 
-2.6868681E-01 
7. 3754  62  5E-0  2 
3.75  0379  6E+0  0 
1. OOOOOOOE+OO 


2. OOOOOOOE+OO 
2. 8609463E-02 
1. 6904024E-03 
3 . 253948  4E  +  C  0 
7.61 1655  6E-0  2 
3 . 915831 4E+C  0 
-3.  97  83982E-0 1 
1. Q015735E-01 
4 . 833521 5E  +  0  0 
1. OOOOOOOE+OO 
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4500000 


2  . 69  23  349E+  0 1 
1.1759872E+02 
1. 6750131E+01 
5» 12  74651E+  0  0 
3.1438322E+02 
■2.3395773E+01 
5.4571939E+02 
5S  9778 142E-0 1 
2.5352  024E+  01 
1.2008750E+01 


3. 8863952 E+00 
-1. 25610 64E+01 
4.2997335E-02 
-5.0  86  8  724E  +  0 1 
3 . 352  6339E+  01 
3.020  5169E+02 
2.4643522E+02 
1 . 292  0  459E- 01 
-4. 9939563E+G3 
4 . 15S  6478  E  +  0  0 


1.2000000  E-0 1 
7 . 90  8  90  8  2E-0  2 
7.1254398E-01 
- 1 . 95 14169E  +  0  0 
1. 3107970E-Q1 
6.  600  4478E+0  0 
5.48850Q0E  +  0  2 
0. 

0. 

5 . 760  2667E  +  D  Q 


1. 9910353E-02 
7 . 3 12  4760  E-0 1 
-6. 63 2229 7 E- 02 
-4. 52290 13E+00 
5. 0349540 E-Ql 
4 . 332  7373  E  +  01 
2.4698252E+Q2 
0. 

-5. 0000000 E+03 
1.0000000E+00 


2 . 000000 OE-s-00 
1.9328533E-Q2 
3.  28  460  8  4E-C  3 
3 . 47  550 1 1E  +  C  0 
i. 27D0710E-01 
5.  3912  592E+0  0 
-5. 47308C5E-01 
1.  2920  459E-0 1 
6®  043699 5E  +  C  0 
1.000000  OE  +  Q  0 


.5000000 


2 .93  58  355E+  01 
1.2310  593E  +  0  2 
1.9686977E+01 
1.6553804E+01 
1.3280543E+02 
2 . 49  79  594E  +  Q 1 
5 . 4556  344E  +  0  2 
6.  0  8  42 134E- 0 1 
2.7262 43QE+01 
1.2078Q88E+01 


5.3893  609E  +  Q  0 
-6.3807331E+00 
-3.8565827E-01 
-5.Q847900E+01 
2 .1794677E+00 
3.73300  97E+0 1 
2 . 737168  0  E  +  0  2 
1.5946787E-01 
-4 . 992  6389E  +  0  3 
4.1654060E+00 


1.2000000  E-01 
5 . 1434990  E-0  3 
8.8098263E-02 
-1 . 83  58535E  +  0 0 
1.42343  3  6E-0 1 
7 . 6456319E+D  0 
5.4885000E+02 
0. 

0. 

6. 3873792E+00 


-1. 7478629E-02 
-5. 180 61 82 E- 02 
1.4907176E-02 
-2 . 1381732E+  30 
-3. 7851155 E- 02 
3 . 3  40  4951 E  +  Oi 
2.7442503E+02 
0  . 

-5.0000000E+03 
1. 0000000 E+QO 


2.0000000E+00 
1.3035952E-02 
1.  63  43244E-0  3 
3. 6895784E+0 0 
1 . 7953564E-0 1 
7. 027722 8E +00 
-7. 0823031E-01 
1. 5946787E-Q1 
7.3611273E+00 
1.000000 OE+OO 


.5500000 


3.7217824E+01 
1.0316145E+Q2 
-1.9517686E+01 
9. 7977  879E+QQ 
-5.450  3  839E  +  0  2 
9. 3047488 E+01 
5.4547088E+02 
5. 94  54  73 1 E- 0 1 
2.868047  6E+  01 
1. 2168752E+01 


7.0  869795E+0Q 
-5.5045723E-01 
-7.5632890E-01 
-5.Q845462E+01 
-3.9333738E+01 
-2.08  0  5541E  +  0  2 
3.0099262E+02 
1.89 6 3466 E-01 
-4.9912383E+03 
4.1735065E+00 


1.2000000 E-01 
-9.2831264E-02 
-4. 9103004E-01 
-1.6847467E+00 
1. 5584412E-01 
8. 7862797E+00 
5.4885Q0QE+02 
0. 

0. 

7. 0717678E+00 


3 . 2329594  E-02 
-8. 1118311 E-01 
1 . 3564520  E-01 
-1. 9150018E+00 
-4.9721888 E-01 
2. 38940 85 E+01 
3 . 0 18  6753  E+0  2 
0  . 

-5.000000GE+03 

l.OOOOOOCE+CO 


2.0000  00  OE  +  OO 
9.696970  QE-03 
5.  0379382E-0  4 
3.87 4511 7E+Q  C 
2. 2923298E-01 
8 . 7328  64  OE  +  O  0 
-6.7491184E-01 
1. 8963466E-01 
8 . 76168  56E  +  0  0 
l.OOOQOOOE+QO 


6  003  3  00 


4 .4579  392E  +  0 1 
8.30  07  386E+01 
-1.4669625E+01 
1. 0820272E+0I 
-8.2038584F+02 
1.7225269E+02 
5 . 453  498  9E  +  02 
5.6237709E-01 
2 . 96  8  0  458  E  +  01 
1. 2275136E+01 


9 . 120  7597E  +  Q  0 
3. 7509521 E+ DO 
-1.03S1174E+0G 
-5.0834620E+01 
-8.3520600E+Q1 
-3.8673763E+Q2 
3.2826338E+02 
2 . 1 8615  8  5E- 01 
-4.9897778E+03 
4.1834005E+0Q 


.6500000  5.2716835E+01  i . 1536775E+01 

1.2288804E+01  5 . 7 120 989E+ 0 0 

-4.3801377E+00  -1 . 1977354E+ 0 0 

1 . 18 16552E+0 1  -5.0790612E+01 

-9. 0161897 E+ 02  -1 . 2111695E+02 

2.3130 661E+02  -4 . 70 668 70E+0 2 

5. 4517389E+02  3 . 5552665 E+ 02 

5.20  27146E-0 1  2 . 4570682E-Q1 

3.0423508E+01  -4.9882746E+03 

1.23  87  0  89E+01  4. 1954767E  +  00 


1.2000000E-01 
-1.9715839E-01 
-9. 1293131 E- 01 
-1.  50  7 4392E+Q  0 
1 . 72  33423E— 0 1 
1.0  0  54694E  +  0 1 
5 . 48  8  5  00  0  E  +  0  2 
0. 

0. 

7.  832  8161 E  +  0  0 


1.2000000E-01 
-2. 8615592E-01 
-1. 1120213E+00 
-1.3208512E+00 
1 . 92  4611 0  E-0 1 
1 . 1470  63  8E+01 
5.  48  85000E  +  02 
0. 

0. 

8 . 6823826E+00 


3.7 110198  E- 02 
-1. 3586429E+00 
2 . 831 2373  E- 01 
-3. 0079764E+00 
-7.7287130E-01 
1 .6891731 E+Gi 
3. 2931003E+  02 
0. 

-5. 0000000 E+ 03 

1. 0000000 E+00 


4 . 2 179051 E- 02 
-1 . 579  350  8  E+00 
4 . 0  334748  E- 01 
-3. 8835456E+00 
-8.7828067E-01 
1 .349  0515  E  +  01 
3. 5675254E+02 
0. 

-5. 0000000E+03 
1. OOOOOOOE+OO 


2.030300  OE  +  Q  0 
8.8211476E-Q3 
7 •  170  623  3E-Q  4 
4.  039739  IE  +Q  0 
2. 7285214E-Q1 
1. 041842 7E+01 
-1. 0466572E+00 
2. 1861585E-01 
1. 0222168E+01 
1. OOOOOOOE+OO 


2. OOOOOOOE+OO 

0  . 

0. 

4.  21 03316E  +  0  0 
3. 0810415E-01 
1. 202402 4E+01 
-1.  22  5880  4E  +  0  0 
2 . 4570  682E-0 1 
1.1725434E+01 
1. OOOOOOOE+OO 


TIMF 

p 

PHI  MSL 

CX 

CL 

XNOSE1 

Q 

THETA  MSL 

CY 

CM 

A  AN 

R 

PSI 

cz 

CN 

ASM 

FMXBA 

FX8A 

XNPOS 

VXEO 

XT  PCS 

FMYBA 

FYB  A 

YNPOS 

VYED 

YTPOS 

FMZ8A 

FZBA 

ZNPOS 

VZED 

ZTPOS 

RXEO 

RXE 

RTXED 

RTXE 

OELX 

ro 

to 

RYFD 

RYE 

RTYED 

RTYE 

DELY 

PZEO 

R7E 

RTZED 

RTZE 

OELZ 

XLUN 

YLUN 

ZLUN 

DIASC 

TNOSOS 

.  7*500000 

7.0141513E+01 
-7.3101475E+01 
2.5687  449E+  0 1 
1.1667332E+01 
-5. 3187419E+02 
1.8947109E+02 

5 . 44  82  969E+0  2 
4.4485747F-01 

3 . 1935646E+01 
1.2387089E+01 

1.7668915E+01 
2.1551086E+00 
-1.1364409 E+ 00 
-5.0747479E+01 
-1 .1399911E  +  02 
-3.2046352E+02 
4.1002559E+02 
2.9345497E-01 
-  4 . 985 1611E+  0  3 

4. 1954767E+  0  0 

1. 2000000 E- 01 
-2.6956795E-01 
-7 . 5778  39 0  E-01 
-9.4573514E-01 

2. 4271755E-01 

1 . 47  4  259  0  E+  0 1 
5.488500CE+02 

0  . 

0. 

8. 6623826E+O0 

4 .89  6  6159  E- 02 
-1. G522145E+00 

3 . 743  0  633  E- 01 
-2.4904845E+00 
-3 . 8996963E-01 

1. 8968127E+01 

4 . 1163754E+  02 

0  . 

-5.000000QE+03 

1.  OOOOOOOE  +  OO 

2. 0000000E+0O 

0. 

0. 

4 . 60  92387E  +  0  0 
3 . 5291288E-0 1 
1 . 4951673E+0 1 
- i . 61 1950  7E+0  0 
2 . 934  549  7E-0 1 
1 • 4838858E+0 1 
1. 00000  0  0E  +  00 

85000  OC 


7.5550727E<>0i 
-9. 08852655*01 
4.40089555*31 
-7, 943828 OE+OG 
i.4397946E-M)2 
-9.415978?£*Q1 
5.4463598E+02 
4 . 5241 11 2E-G 1 
3.4540  776E*0 1 
1.2387089E+01 


2»537Gi67E*Ql 
-7 .478 4122 E+ 00 
-9. 3801506 E- 01 
-  5  »  0  74  60  57E*0 1 
3.0  883861E+01 
3. 6516547E+01 
4 . 6449858  E*  02 
3.3755092E-01 
-4.9618498E+03 
4. 1 954767 E+ 00 


.9500000  7 . 693731 OE+01 

-4.0974863E+Q1 
2.2098390E+01 
-1.5988350E+00 
5.7024080E+02 
-4.1391 67 8E*02 
5.4425  100E  +  02 
5.3084559E-01 
3 . 8 560  707E* 0 1 
1.2387089E+01 

ST6PT  PLOTTING  6T  0.0000000 

PLOTTING  ENDED  fit  0.0000000 


3 . 3  0  415  85E  +  0 1 
-i. 53635 95 E+01 
-1.0833852E+00 
-5.07302 49E+ 01 
2 . 1354227E+  0  2 
2. 8941157 E+ 02 
5 . 1 39  4592  E+  0  2 
3 . 8  63  5626E-0 1 
-4.9782044E+03 
4.1954767E+00 


1. 2000000E-01 
7.30  31 551E-0  2 
8  o 63  512  54E-0  2 
-5. 1391544 E- 01 
2. 9599837 E- 01 
1 . 8483384E+0 1 
5. 48  8 50  00  E*0  2 
0. 

0. 

8 . 6823826E+00 


1.2000000E-01 
5. 0512412E-01 
6.8458935 E- 01 
-6. 4421056 E- 03 
3. 39  6827  8E- 01 
2 . 24  738  46E+  0 1 
5.46  85000  E  +  O  2 
0. 

0. 

8. 6823826E+00 


1 . 6367944E- 02 
1. 1990231E-01 
-1.0140735  £—  0 1 
-2.I94Q396E*  00 
5. 152476QE- 01 
3. 370  7622  E  +  01 
4. 6652255E+Q2 
0. 

-5. 0000000E+03 
1 , 0 0 0  0 0  0  0  E  +  0 0 


2.8185662E-Q2 
9 . 5  05  8  084E-Q 1 
-7.0138588E-01 
-5.6144573E+3Q 
9.3534808E-01 
4 . 51 831 07  E  +  Ql 
5 . 214  0755E+  0  2 
0  . 

-5.0000000E+Q3 
1. 0000000 E+00 


2.0  0  00  00  OE't-O  0 

0  o 
0  . 

4. 9980517E+00 
3  o 8624533E-Q 1 
1 . 7759736E+0 1 
-2.0239687E-S-00 
3 . 37  55092E-Q 1 
1 . 8150193E+0 1 
1. OOCOOOOEtOO 


2.0  00000  OE-s-OO 

0. 

0. 

5. 3539064E+0  0 
4.4105175E-01 
2. 1000760E+01 
-2.4616320E+00 
3.8  635626E-0 1 
2. 1795591E+0 1 
1. CG00000E*00 


APPENDIX  VI 


EXAMPLE  2 


The  second  example  is  also  a  multiple  run  that  simulates  the  trajectory 
of  a  MK-84  and  a  MK-81  bomb  for  the  outboard  pylon.  The  flow  field  data 
used  in  simulating  the  trajectories  was  collected  in  the  presence  of  a 
MK-84  on  the  outboard  pylon  at  M=.85  and  angle  of  attack  =  .3.  The  first 
trajectory  is  that  of  the  MK-84  at  M=.85  with  all  the  scale  factors  being 
1.  The  second  trajectory  simulates  the  MK-81  and  has  the  scale  factor 
(DIASC)  equal  to  2  since  the  MK-81  diameter  is  1/2  that  of  the  MK-84. 

This  launch  occurs  at  M=.5  and  an  angle  of  attack  =  3.3  degrees.  The 
ejector  force  for  both  runs  was  10,000  pounds  and  acted  until  the  bomb 
was  0.333  foot  down  from  the  aircraft.  The  trajectory  was  calculated 
until  ground  impact. 
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EXAMPLE  II  PROGRAM 


INPUT  DATA 


1 

OUPT  2,3 

3 

-0.  -0 

i 

STAG2 ,3 

4 

-0.  -0 

2 

G2-T 

23 

-0.  -0 

2 

G3 

24 

-0.  -0 

2 

G5 

26 

-0.  -0 

2 

A1 

2 

-0.  -0 

2 

A  3-T 

4 

-0.  -0 

2 

A  2 

3 

-0.  -0 

2 

01 

17 

-0.  -0 

2 

D2 

18 

“0.  -0 

3 

TF 

2001 

1 .0000000E+02  1 

•OOOOOOOE+OO 

3 

T 

2000 

-0.  1 

•00QG000E+QG 

3 

PPP 

2005 

1.0000000E-02  1 

.OOOOOOOE+OO 

3 

REPPLT 

2006 

1.0QQOOOOE+QO  -0 

3 

CPP 

2015 

5.Q0000Q0E-02  1 

.  000000  0E+  0  0 

3 

OOC 

2013 

6. OOOOOOOE+OO  1 

.0000000E+00 

3 

0ERC1) 

2664 

2.000000QE-Q3  1 

.0000000E+00 

3 

PPP1 

120 

l.OQOOQOOE-01  -0 

3 

CPP1 

121 

i.OQQOOQQE+OO  -0 

3 

DERI 

122 

1.0Q00000E-Q2  -0 

3 

XTL 

123 

2.4000000E+01  “0 

3 

XLL 

124 

1.2000000E+01  “ 0 

3 

YLT 

125 

9«  0QQ0QQQE+0Q  "0 

© 

3 

YLL 

126 

3 • 0  0  0  QO  Q  0E  +  0  0  -0 

© 

3 

ZTL 

127 

9. OOOOOOOE+OO  -0 

© 

3 

ZLL 

128 

1.Q00Q0QQE+00  ~0 

© 

3 

0PTN4 

3502 

-0.  -0 

© 

3 

AGRAV 

1627 

3.2174000E+01  -0 

© 

3 

CR  AO 

1751 

5. 7295770E+01  -0 

3 

WP 

1739 

-0.  1 

.0000000E+00 

3 

WQ 

1743 

-0.  1 

.OOOOOOOE+OO 

3 

WR 

1747 

-0®  1 

.OOOOOOOE+OO 

3 

RXE 

1615 

0.  1 

.OOOOOOOE+OO 

3 

RYE 

1619 

-0.  1 

.OOOOOOOE+OO 

3 

RZE 

1623 

-1.0000000E+03  1 

.OOOOOOOE+OO 

3 

RTXE 

1651 

0.  1 

.00000002+00 

3 

RTYE 

1655 

-0 .  1 

.OOOOOOOE+OO 

3 

RTZE 

1659 

-1.Q000000E+03  1 

.OOOOOOOE+OO 

3 

EFORCX 

1326 

-0.  -o 

3 

EFT 

1332 

1.000000  OE  +  Oi  -0 

© 

3 

EJO 

1333 

3 . 330  00  0  OE-0 1  1 

.OOOOOOOE+OO 

3 

DIASC 

69 

1. OOOOOOOE+OO  1 

•OOOOOOOE+OO 

3 

FMIYO 

1420 

3. 600000  QE  +  02  -0 

9 

3 

FMIXO 

1419 

1.8300000E+01  -0 

3 

OPTNW 

50 

1 • OOOOOOOE+OO  1 

•OOOOOOOE+OO 

3 

XT  AIL 

57 

-5.8260000E+00  -0 
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3 

XNOSE 

59 

5  *  1660  0  0  QE  +  0  0 

-a© 

3 

XNOSEi 

73 

3»  33300  0  0 E-J- 0  0 

-0. 

3 

RFLGTH 

1307 

1. 50000  0  0E  +  0  0 

-0* 

3 

RFAREA 

130  6 

i *  76700  0  OE^O  0 

6 

3 

OWT 

1415 

2  *  Q54Q0 G  OE-s- 03 

-Ob 

\J 

DWP 

1416 

1. 0000000E+00 

-Ob 

3 

CISP 

1414 

i.aooooooE+oo 

”0b 

3 

X INTER 

1252 

-1. OOOOOOOE+OO 

1 »  0 0 GO  GO  QE-»-G  0 

3 

PLOT NO 

2008 

1 . 2000000E-8-01 

—  0  © 

3 

PLOTN2 

1983 

*0  e 

"Ob 

3 

PL0TN4 

1982 

*  0  6 

"Ob 

3 

CHQ 

1207 

-1.3QQOOOQE+QO 

—  0  © 

3 

CNR 

1208 

-1S3000000E400 

— 0  © 

3 

CLP 

1206 

-3  ®  30G00Q  QE-Qi 

—  0  © 

3 

TNOSOS 

58 

i»  OOOQOOOE-f-OO 

—  0  © 

3 

XPQS 

54 

2#9590000E-s-Ql 

-Ob 

3 

YPOS 

55 

1.1040000E+01 

"Ob 

3 

ZPOS 

56 

-1. 85G0QQ0E*0Q 

"Ob 

3 

EFORCZ 

1328 

1« OQOOOOOE^OA 

"Ob 

3 

EFORCY 

1327 

“0  . 

”0  e 

3 

EMOMZ 

1331 

-0  . 

“Ob 

3 

CNAA 

1273 

8sGQQ000QE"G2 

IbOOOOOOOE^QQ 

3 

CHAA 

1272 

-i. 5000000E-Q1 

1*OOOOOOOE+OQ 

3 

CAA 

1274 

1.0000000E-01 

IbOOOOOOOE-s-OO 

3 

VMACH 

204 

8®5QG000QE-Q1 

IbOOOOOOOE-5-OO 

3 

ALPHAO 

381 

-0  . 

"Ob 

3 

STEP 

2010 

2  ®  0 Q 0 00  0  0 E^O  0 

-0b 

4 

P 

1739 

”0b 

—  0  * 

4 

PHI  MSI 

352 

-Ob 

—  0  © 

4 

cx 

1203 

-0® 

-0© 

4 

CL 
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-4.4230343E+00 
1. 0328249E+0  0 
1.0831212E+01 
9 . 463  73  0  0  E  +  0  2 
0. 

0  . 

7. 6067271E+00 


1.0000000 E-01 
3 • 0911 554E-0  3 
1.80  67033E-01 
-4. 28 7 9831 E+0 0 
1.  0965359E  +  0  0 
1. 2248164E+01 
9. 4637300E+02 
0. 

0. 

8.4588981E+00 


4. 8290354E-02 
8 . 9564157  E-01 
-4.5632161E-01 
-7.1776688E+00 
4. 5663461 E+00 
5 . 2792807E+01 
4. 25  86789E  +  02 
0. 

-1 . 000  00  0 0E+  03 

1.0000000 E+00 


4. 9833584E-Q2 
4 . 8819189  E- 0 1 
-2. 21587 44 E-01 
-4.7480329E+00 
1.271 79 50E+00 
4. 5390402E+01 
4.7318655E+02 

0  o 

-1.0000000 E+03 
1.0000000 E+00 


-3. 8343341 E- 02 
7. 1185474E-02 
1 .1 IS  0793  E- 01 
-3.2056381E+00 
-1.8629892E+00 
3 . 6716817  E+  01 
5. 205052 0E+02 
0. 

-1. 0000000E+03 
1. OOOOOOOE+OO 


3. 333QC00E+00 
2 «  218341 2E-0  2 
9 . 46481 54E-0  3 
7.2223821E+00 
5. 2884421E-01 
7 . 13  46948E  +  0  0 
-5. 3236443E-01 
7 . 7990  536E-0 1 
8. 4669498E+00 
1. OOOOOOOE+OO 


3.3330000E+00 
1 . 8527665E-Q  2 
7 . 3943148E-03 
7 . 4506511E+0  0 
8.77760  9  3E- 0 1 
9. 1580109E+0  0 
-6.9199741E-01 
9. 6602540E-Q1 
1. 0110419E+01 
1. OOOOOOOE+OO 


3.3330000E+00 
1. 4172481E-02 
6 . 23  60  659E-0  3 
7 . 670362  3E+0  0 
1. 2328627E+00 
1. 136078 4E+ 01 
-8.6351897E-01 
1 . 155263  8E  +  0  C 
1 . 1865892E+01 
1. OOOOOOOE+OO 


.6000000  7.8789043E+01  2 .  7162553E+01 

5 •  4302  577E+  0 1  -4. 8 70 5654E-01 

-5<,i42S262£  +  01  -i  .  8  569783E+Q  0 

-1.6792991E+02  -1 .8099923E+02 

-4.2063846E+02  -3 . 8 649419E  +  Q 2 

1.23131186+03  -9.5388374E+01 

9.4270515E+02  5„ 6678 060 £+0 2 

3.60  0  3692  E+0  0  1 . 3399 138 E+O 0 

3  .  7692  448E+  01  -9 » 8 62 8778E+02 

1.52  60  398E  +  01  7 . 3175216E+ 0 0 


1.6000000 


no 

4=. 

ro 


-1.9816087E+0X 
-1.  594440  6E+  0 1 
2 . 40  98  990  E  +  0 1 
7.8086532E+01 
-2.1041816E+03 
1.6076456E+03 
9.3847526E+02 
2.3  435560  E  +  0  0 
& . 6419  842E  +  0 1 
1 . 5260  398E+0 1 


2. 421070 2E+01 
2 . 4637372E+0  0 
- 1 « 4445120  E+  0  Q 
-1.8023631E+02 
-5 .956208 5E+02 
-7.&404131E+02 
1.5073151E+03 
4 . 191320  6E  +  0  0 
-9. 34 96 393 E+0 2 
7 . 317  5216E+  0  0 


<D  o  O 


3. 3330000E+00 


1. OOOOOGOE-Ol 
-2. 1353361 £-01 
—5. 2700983 £-02 
-4. 1198  41 4E+0 0 
1.17251G9E+00 
1 . 3756133E+0 1 
9 . 46373  0  0E+0  2 


. 1775738  E+  0  0 


1. 0000000E-01 
-3. 3037497 E- 01 
-4. 2379329 E- 01 
1.7222315E+00 
4 . 0612123E+  Q  0 
6. 4813999E+0 1 
9.46373GQE+02 
0  . 

0. 

9 • 1775738E+0  0 


-4. 1184108 E- 02 
-9. 8814344 E- 02 
4 . 0  03  7552  E-01 
-2.9512577E+00 
-4.6il0718E+00 
2.8056878 E+01 
5 . 6782386  E+  02 
0. 

-1. 0000000 E+ 03 
1.0000000E+00 


2 . 36620  54  E- 02 
-7. 9461242 E-01 
6. 1945307E-01 
-3.5447796E+00 
-3. 5129885E+  00 
1.7567569E+01 
1.5 141969  E+  0  3 
0  . 

-1. 0000000 E+ 03 
l.QOOOOOOE+OO 


0  - 
0  . 

7. 8654272E+Q  0 
1. 5610941E+00 
1 . 3654194E+0 1 
-1 . 0432582E  +  0  0 
1 . 33  9913  8E+0  0 
1. 37 12221E+01 
1.000000  0E+0  0 


3 . 3330  0  0  0E  +  0  0 

0. 

0  . 

1 . 369933  8E+0 1 
4 . 3632370E  +  0  0 
6. 532950  0E  +  G1 
-6. 881815SE+00 
4 . 19132 0  6E  +  0  0 
6.  50  360  7  0E  +  0 1 
1.0000000E+00 


243 


TIME 


? 

PHI  MS L 

CX 

CL 

XNOSE1 

Q 

THETA  MSL 

CY 

CM 

AAN 

R 

PSI 

CZ 

CN 

ASM 

FMXBA 

FXBA 

XNPOS 

VXEO 

XT  PCS 

FMYBA 

FYB  A 

YNFOS 

V  YED 

YTPOS 

FMZBA 

FZBA 

ZNPOS 

VZEO 

ZTPOS 

RXEO 

RXE 

RTXED 

RTXE 

DELX 

RYEO 

RYE 

RTYED 

RTYE 

OELY 

RZEO 

RZE 

RTZEB 

RIZE 

DELZ 

XIUN 

YLUN 

ZLUN 

DIASC 

TNOSOS 

2.6000000  2.46366932+00 

“2.8502 12  5E  +  0 1 
2.4569330E+G1 
-1.1601265 £+02 
7.553Q106E+02 
-1.2105033E+03 
9. 34999492+02 
2 . 58X2359E+G  Q 
9 • 7682  031E+  0 i 
1.5260  3982+01 


3.03278742+01 
“8 . 8203590E  +  0  0 
1.75276822+00 
-1.3048724E+02 
4 . 0  587257E+0  2 
2.4009660E+02 
2.4439501E+Q3 
6 . 920 1304E+  0  0 
-8.5227132E+02 
7.3175216E+Q0 


i. OOOOOOOE-Ol 
2.2487604E-01 
1.330  2691E-01 
1. 1517466E+01 
7 . 0762731E  +  0  0 
i . 48  520  82E  +  0  2 
9 . 463730  0  E+  0  2 
0. 

G. 

9.1775738E+0  0 


-4 . 220  3827 E-02 
2 «  4942546E-D1 
-4.2X6 42 58 E~ 01 
-3.8917383E+00 
3 . 4711214E+  00 
3  *  6 12  D  629  E  +  01 
2. 460  570  0  E+  03 
0. 

-l.OQOOOOOE+03 

1.0000000E+00 


3.333000  0E  +  0  0 
0  © 

B  ® 

2 . 3362103E+01 
6. 7138139E+00 
1 .4668201E+02 
~1. 661998 4E +01 
6.92Q1304E+00 
1.477286  8E  +  0  2 
l.OOOOGOOE+OO 


3.6000000 


1.7156682E+00 
1. 3846890 E+01 
-1.8451074E+01 
8. 8795157E+Q1 
9. 1332  80  0  E+0  2 
-6.0599036E+02 
9. 3144953E  +  Q  2 
3.1657700E+00 
1.3137  236E+  0  2 
1 • 5260  398E  +  0 1 


2 . 6614068E+0 1 
-1.0 83 60 11 E+01 
5.94Q9150E-01 
-1.8138479E+02 
2 . 339  6388  E  +  0  2 
3. 3862293 E+02 
3 . 37  7 13  89E+  0  3 
9.78271 84E+  0  G 
-7.3749753E+02 
7 . 3175216E+0  0 


1. OOOOOOOE-Ol 
1.2898760E-01 
1.8668761E-01 
2 . 473  0  643E+01 
9.8353278E+00 
2 • 63  47367E+0  2 
9 »  463  73  G  0E+0  2 
0 . 

0. 

9 . 17  75738E+0  0 


3.3087425 E” 02 
3. 500 3927 E- 01 
-2 . 418  5174E- 01 
-3 . 9998  619E+  00 
8.5891957E-01 
3.7910016E+0I 
3 . 40  69431 E  +  03 
0. 

— 1. QOOOQOOE+Q3 
1. 0000000 E+ 00 


3.333000  0E  +  0  0 
0  . 

0  4 

3 . 65  0818  3E+0 1 
9.71320  3  8E+G  0 
2 . 61 21919E  +  0  2 
-  2 . 98  0  4256E  +  0 1 
9 . 78  271 84E  +  0  0 
2 . 6250247E  +  0  2 
1.0000000E+00 


4.6300GGQ 


5.6000000 


IS3 

-ft. 

-ft. 


6.6000000 


HISS  DISTANCE3 


—1. 2948997 E+01 
9.0632219E+00 
-5.5815500E+GG 
-4.  43  88  934E+  01 
-7.1335738E+Q2 
8.6389729E+G2 
9 .28439836+02 
2.  8421 326E+  0  0 
1.6277 788E+ 02 
1. 5260  398E+01 


2 . 1611782E+01 
“1 • 3987  031E+01 
1. 3951818E+01 
1.1242938E+02 
-2.3312191E+02 
4.4106237E+01 
9. 2565584E+02 
2. 60  90  811E+Q  0 
1.9333Q44E+G2 
1. 5260  398E+01 


-1.5373756E+01 
-2. 3 8 36 57 4E+ GO 
-1.1343001E+G0 
1.5307812E+01 
5. 0879652E+G2 
-4.S139391E+02 
9.2261397E+G2 
2 . 8  621 790E+3  0 
2. 2535936E+02 
1.5260398E+01 

6. 9 4 24 667 2E+ 03 


2.95869Q4E+01 
-7.4S6&318E+00 
-7.992S390E-0.1 
-1.S3GG248E+02 
-3.Q15286GE+C2 
-2.4626613E+02 
4 . 3  07 14Q8  E+  0  3 
1.2649S31E+01 
-5. 9082473 E+G2 
7 . 3175216E+0  0 


2 . 82790  01E+01 
-1. 1113815 E+ 01 
3.03Q6179E-01 
-1.8525622E+02 
-2.9895168E+01 
-9. 8914392 E+ 01 
5 . 2  341 681E  +  0  3 
1.5422548E+01 
-4.1276526E+02 
7 , 3175216E+  0  0 


2.8861416E+01 
-1.5328980E+01 
6. 4229040 E- 01 
-1.8S16548E+02 
1.7593794 E+02 
1 .7844950  £+0  2 
6. 1582644E+03 
1 .  8206  737E+  0 1 
-2.9320639E+02 
7.3175216E+0G 


TIME  FINAL3 


7. 4510900 3E +00 


1. 0000000 E- 01 
-1.6476749E-01 
“1. 3456983 E- 01 
4.10  53711E+0 1 
1 . 2578378E+0 1 
4. 098  4662E+0  2 
9 . 46373  0  0  E+0  2 
0. 

0. 

9 . 1775738E+0  0 


1. OOOOOOOE-Oi 
— 1.6137200 E- 02 
-5.3393290E-02 
6. 0452213E+01 
1. 5449360E+01 
5 . 88  230  53E+0  2 
9 . 463730  0  E  +  02 
0. 

0. 

9 . 177573  8E+0  0 


1.000000  OE-0 1 
9 . 350171 OE-Q  2 
9 . 4836472E-0  2 
8 . 2816087E+01 
1.8264587E+01 
7 . 9815879  E+0  2 
9 .46373  OG  E+0  2 
0. 

0. 

9 . 1775738E  +  0  0 


-1.9570632E-02 
-2 . 52318  44  E- 01 
3 »  0  89390 5E- 01 
-2 . 1338121 E+  00 
-2.1731316E+00 
2 . 616  31 07  E+  01 
4. 3533162  E+  03 
0. 

-1. OOCOOOOE+03 
l.OOOOOOOE+OO 


4 . 611 5495  E-02 
-1. 0011 24 2 E- 01 
3.0257251E-02 
-2.5433301E+00 
3. 0821617E-01 
3 . 0058040  E+01 
5.2996893E+03 
0. 

-1. OOOODGOE+03 
l.OOOOOOOE+OO 


1.4171967  E-03 
1 . 7781 839E-01 
-1. 7531571 E- 01 
-3 » 85310  53E+QG 
1. 0212307E+00 
3 . 50  38738  E+01 
6. 2460  624E  +  03 
0. 

-1 .0000000 E+ 03 

i. 0000000 E+00 


3»333GGG0E*(JQ 
0  A 
0. 

5 . 2542869E+Q 1 
1.27  44244E  +  01 
4. 0828827E+02 
-4.  617540  8E  +  0 1 
1 . 26498  31E  +  01 
4. 0917530E+02 
l.OOOOOOOE+OO 


3.3330000E+00 

0. 

0. 

7.2219153E+01 
1 . 53  8712  OE  +  0 1 
5. 8591897E+02 
-6. 5521260E+01 
1.5422548E+01 
5. 872347 4E +02 
l.OOOOOOOE+OO 


3. 333000  OE+OO 

0. 

0. 

9.  4380  73  3E+0 1 
1.8134941E+01 
7 . 9498858E+G2 
-8.7797988E+01 
1. 8208737E+01 
7 . 9679311E  +  0  2 
l.OOOOOOOE+OO 


XM  EARTH= 


6. 94 243618 E+ 03 


YH  E ARTH= 


2.05946911E^01  ZM  EARTH= 


0 


7.4600000  7 . 73  0 1141E-G 1 

3 . 53  54392E+00 
-5.5114328E+00 
9.3S61532E+01 
2.90 14546E+  0  2 
-1. 9194335 E+ 02 
9.20  04515E+02 
2.8933681E^OO 

2 .5260  314E+02 

1 .5260  398E+01 

START  PLOTTING  AT  0.0000080 

PLOTTING  ENDED  AT  0.0000000 


2.83  0  5247E+Q 1  1.  00 0 000 0 E-0 1 

-1. 6197034 E+ 01  3 . 8699510 E-0 2 

2 . 7835  293E-0 1  5. 588 5190 E-Q 2 

-1. 9118988 E+ 02  1. 0434848E+02 

7.3989548E+Q1  2 . 0644562 E+0 1 

1 . 0  68 4683 E+  02  1 . 0 0 3690 2 E  +  0 3 

6.9506339E  +  03  9 . 46373 0 0E+ 0 2 

2 . 0  62  0  460E+  01  0. 

2  .2492  0 19E+  0  0  0  . 

7 . 31752 16  E+0  0  9 .1775738E+0 0 


3 . 2929430E-02  3 . 3330  Q  0  0E  +  0  0 

1.0  478473  E- 01  0. 

-7. 2561582E-02  0. 

-3.4413303  E'i- 00  1. 1586436E  +  0  2 

2.  10  0  941 7E-01  2 . 05 S8615E+0 i 

3.3281 443  E  +  01  1 . 0 0 Q3451E+0 3 

7 . 0  599433  E  +  03  - 1 . 09 30937E+0 2 

0.  2.0620460E+CX 

-1.OOQOOO0E+Q3  1.0022492E+03 

1. 0000000E+D0  1.000000  0E+0  0 


INPUT  DATA 


3 

ALPHAO 

381 

3.  OOOGOOOE  +  OO  -0. 

3 

VMACH 

204 

5.000000  0E-01  -0. 

3 

OIASC 

69 

2. 0000000 E  +  GO  1. 0000000 E+ 00 

3 

OWT 

1415 

2.6000000E+02  -0. 

3 

RF  AREA 

1306 

4.  41700  0  0  E-0 1  -0 

3 

RFLGTH 

1307 

7.50G00Q QE-01  -0. 

3 

FMIXO 

1419 

7 , 00000  0  0E-01  -0. 

3 

FHIYO 

1420 

1.4&OGOQOE+01  -0- 

3 

XNOSE1 

73 

2. 1000000 E+ 00  -0. 

3 

STEP 

2010 

1. 1000000 E+Gi  -0. 

6 

-0 

—  0  e  —  0  e 

BURNOUT  TIME=  -0.0000  SEC. 

TIME=  .0020000  STEP  SIZE= 


2.000000  OE-O 3 


TIME 


p 

PHI  HSL 

CX 

CL 

XNOSEi 

Q 

THETA  MSL 

CY 

CM 

AAN 

R 

PSI 

cz 

CM 

ASM 

FMXBA 

FX3  A 

XNPOS 

VXED 

XTPOS 

FMYBA 

FY8A 

YNPOS 

V  YEO 

YTPOS 

FMZBA 

FZBA 

ZNPOS 

VZED 

ZTPOS 

RXED 

RXE 

RTXED 

RTXE 

DELX 

RYED 

RYE 

RTYED 

RTYE 

DELY 

RZEO 

RZE 

RTZED 

RTZE 

DELZ 

XLUN 

YLUN 

ZLUN 

DIASC 

TNOSOS 

ro 

cn 


.0020000 


.0500000 


2 . 0786934E-O1 
-8. 7096109 E- 01 
2. 2254234E-0I 
1.4825236E+00 
-1.3710  816E  +  02 
4. 1312717E+01 
5.5663610E+Q2 
2 . 1984114E-G  3 
2. 5322S03E  +  0  0 
1.4654402E+01 


2.11110  77E+0  0 
-2.9354&53E+91 
4. 5631 309E+G0 
-2.3871114E-01 
-1.4S68277E+02 
1.2730  371E+0 1 
5. 5S59373E+Q2 
5. 2 551 16 IE— 02 
3  »  0  673  7  06E+01 
1 . 4S56106E+G1 


1.6744957E-04 
-8. 4476829 E- 04 
2. 1648413 E- 04 
-1.560 41 37E+01 
1 .41&7321E+01 
9. 9783415 E+03 
1.1133761E+00 
2 . 3355  734E- 0  6 
-9.9999747E+02 
6.6240250E+00 


8 „3356835E— 02 
-7. 1723779 E-Oi 
1.3633878E-01 
-1.5807113E+01 
7. 2697020 E+GO 
-5.4395357E+01 
2.7832078E+01 
1. 4552178 E- 03 
-9. 988 4671 E+ 02 
6.640  4952E+0  0 


1. OOOOOOOE-Ol 
8 . 9756698  £-0  2 
-1. 3750026 E- 01 
-5.16599&1E+QG 
2. 0859498E-05 
2. 6067162E-03 
5 . 56690  0  0  E+0  2 
0. 

0. 

1. 11312  81E+0  0 


1.0000000E-01 
4. 599  0  067E-0  2 
— 3. 4728262 E— 01 
-5.1631565 E+ 00 
1 »37  46825  E-02 
1. 2179583E+0  0 
5 » 56690  00E+G  2 
0. 

0. 

2.5715499E+00 


1.2595407  E-02 
-1.  1613504E+  00 
3 . 4989712E- 01 
-1.94916 42 £+00 
1 » 749  5354E+  00 
1. 2669554E+03 
1.11338 00 E+00 
0, 

-1.0000000E+03 

2.0000000 E+00 


-1. 5451526 E- 03 
-1.2797987E+0Q 
1 .1136919  E-Q 1 
-1 . 8730568E+  00 
9 . 050  2516E-01 
2 . 5358273E+  01 
2 . 7834503E+  01 
0  . 

-1.0000000 E+03 

2. 0000000 E+00 


2. 100000 OE+QO 
4.  21 5612  5E-0  2 
2 . 41 69675E-0  2 
6. 8260039E+00 
-2. 4450616 E- 05 
2 . 42990  63E-0  3 
-3. 8976657 E- 06 
2 . 3355734E-0  6 
2.532850  6E-0  3 
l.OOOQOOOE+OO 


2.100Q0Q  0E+0  0 
2. 8839360E— 02 
9. 1385582E-03 
6. 8278699E+00 
— 1.4786604E— 02 
1. 2678444E+0 0 
-2.424Q940E-G3 
1 . 4552178E-0  3 
1.1532919E+00 
1.00000  0 OE+O  0 


1000000 


-1.1677982E+00 
-5.1305294E+Q1 
5 • 750  2  587E  +  0  0 
-1 • 70  0  0  965E+0  0 
-8.9423183E+01 
3. 9541 191E+0  0 
5.5650457E+02 
9  . 196793  6E-Q  2 
3. 1964900 E+01 
1.46638226+01 


1 . 2353651E-Q 1 
-2. 780227 0E+Q0 
3.9729497E-01 
-1 .53Q1621E+Q1 
8  « 2969945E+0Q 
-3. 7463270 E+01 
5 . 5658  507E+  0 1 
5 . 0  376761E-0  3 
-9. 9728122 E+ 02 
6 .6729  80  0  E+00 


.1500000 


ro 

-Ba 


-1 . 6580  0 38E+Q 1 
-6.2629236E+Q1 
4. 7542040E+00 
-4.7916G62E+00 
-3.3436386E+01 
-7.5727754E+00 
5.5641649E+02 
1 • 449290  7  E-01 
3.3418900E+01 
1 . 4682363E+01 


-2.6539878E-G1 
-5 .6737675E+0Q 
6.7377900E-01 
-1.5801423 E+01 
1.00868 63 E+01 
-4. 75539 47 E+00 
8.3482  567E+  01 
1 . 0  90  9882  E- 0  2 
-9.9564745E+02 
6 . 7096335E  +  0  0 


.2000000  -9. 93  85633E+0  0  -1 . 0 826778E+0 0 

-6. 2794967 E+ 01  -8 . 8555991E+0 0 

1. 7533  341E+  0  0  8 .788 0 115E- 01 

6. 1794779E+0  0  -1 .5800310E+01 

2.5018117E+01  1 . Q8715S2E+01 

-1. 20 10  540E  +  01  3 .24424376+ 0 1 

5. 5630  815E  +  02  1 . 113 0 0 82E+0 2 

2.0  842  372  £-01  1 . 97 07 066E-02 

3.5G69082E+01  -9. 9393567E+02 

1 .4714  022E+01  6 .7415945E+0G 


1.00000  00E-01 
5 . 25  0723  6E-0  2 
-2.3708498E-01 
-5.1502966E+00 
4.0  8 16654E-0  2 
2 . 969 358 8 E+0  0 
5 . 56690  0  0E+  0  2 
0. 

0  . 

4.6732305E+0  0 


1.0000000  E-0 1 
6.3835156E-02 
-3.0094724E-02 
-5.1193951E+00 
7.13  61212E-0  2 
4 . 86328 12  E  +  0  0 
5 . 5669  0  0  0  E+  02 
0  . 

0. 

6 . 9459374E+0  0 


1.0000000  £-0 1 
6.8806130E-02 
2 . 0532785E-0 1 
-5. 066 62 9 7E +00 
9 . 7995394E-Q  2 
6, 85960  43E+0  0 
5 . 56690  0  0E+  0  2 
0. 

0. 

9 . 3415252E+0  0 


-1. 460 4479 E- 02 
-7. 9939905 E-01 
3 . 639 1476  E- 02 
-1. 7354768E+00 
1.0247051 E+00 
2 . 745  Q  897  E+  01 
5. 5669005 E+01 
0. 

-i.GOOGQODE+03 
2. 0000000 E+00 


-4.4112924E-02 
-3.3686967E-01 
-5  9743321E-02 
-1.9015526 E+00 
1 • 2231948  E+0  0 
3.1389358E+01 
8.350  350  8  E+  01 
0. 

-1 . 0 0  0 00  0 0  E+  03 

2. 0000000 E+00 


4 . 9940801 E- 02 
1 . 5621836E- 01 
-9. 9819894 E- 02 
-2.5674211E+00 
1.3817183 E+00 
3.5813948  £+01 
1. 1133801 E+ 02 
0. 

-l.GOOOOQOE+OS 

2. 0000000 E+ 00 


2.10  00000E+Q  0 
1.6422489E-02 
6 . 34343  0  9E-0  3 
6. 32  73  0  0  CE  +  G  0 
-4 . 22  38594E-0  2 
2 . 38  76859E+0  0 
-9  4986237E-0 3 
5.0376761E-C3 
2 . 718782  0E+0  0 
1.0000000E+00 


2. 1000000E+00 
1 . 30  2969  7E-0  2 
2. 725Q500E-0  3 
6.81303C2E+Q0 
-6. 8966544E-02 
3. 67770  22E  +  0  0 
-2 . 0  94Q894E-0  2 
1. 09098826-02 
4. 3525492E+0  0 
1. 0000000E+00 


2.1000000E+00 
1. 060929 2E-02 
1.  35013  90E-0  3 
6.78i0253E+0C 
-8.3737875E-02 

5.  0 1 3499 2E  +  0  0 
-3. 7188381 E- 02 

1.9707066E-02 

6.  06432  61E  +  0  0 
1 . 0  0  00  0  0  0E  +  0  0 


248 


,2500000 


T  IME=  ,25400 


,3040000 


9.5847114E+Q0 
-5.2047752E+01 
-7, 6865190 E- 01 
3.5223120E+00 
7.6730  825E+01 
-1 .33  15  3 17  E+01 
5.5615627E+Q2 
2.7901006E-01 
3.6973858E+01 
1 . 4755893  E+01 
00  STEP  ST2E= 


2.11354066+01 
-2.8599797E+01 
-3.1933975E+00 
2.1264945E+00 
1.2646099E+02 
-1.4254613E+01 
5.5593651E+02 
3 •  4999  294E-0 1 
3.9187366E+01 
1.4759480E+01 


-1,0576083 E+00 
-1.1767964E+01 
9 , 60  39021E- 01 
-1 .5797651E+01 
1.1Q58779E+01 
6.5998905E+01 
1. 3911265 E+ 02 
3*1875405 E- 02 
-9, 9213492 E+ 02 
6 .7639  725E+0  0 
1.0000000E-02 


-1.8492 974 E- 01 
-1,39840 17 E+01 
3,790  5642E-01 
-1.5785769 E+01 
1 . 0  3717  89E+01 
8 . 7821608E+  01 
1 .6913940  E+  0  2 
4.8890281E-02 
-9.90Q7925E+02 
6 . 7652  809E+0  0 


1.0000000  E-0 1 
7.  00  0 2679E-0 2 
4. 17  77670  E-0 1 
-4. 99 63456 E+ GO 
1. 16 6 43 7 2 E-0 1 
8 . 91 86751E+0  0 
5. 56690  0  0  E+G  2 
0. 

0. 

1. 1812410  E  +  0 1 


1. 0000000 E- 01 
6. 570  3413E-0  2 
5.5633406E-D1 
-4. 91 7 9337 E+0 0 
1 . 2579724E-0 1 
1.11 69124E+0 1 
5.56690  0  0  E+0  2 
0. 

0. 

1. 2012049E+01 


3 , 1855950  E-Q2 
6 , 0 21 0478  E-0 1 
-1. 1305434E-01 
—3  < 5990  041 E  +  QO 
1. 45S8757E+00 
3 . 9744662  E+  01 
1 . 3917251 E+  02 
0. 

-1 ,0000000 E+03 

2. 0000000 E+00 


2. 2654320  E-02 
i . 0431264 E+0  0 
-1.231939QE-01 
-4.5403819E+00 
1.2 49 0280 E+00 
4.2243382E+01 
1 .6923378  E+  02 
0  . 

-1.0000000 E+03 

2, 0000000 E+00 


2.10000 OOE+O 0 
8, 41659  65E-0  3 
8»  3576556E-04 
6, 7414521E  +  Q  0 
-8.0131718E-02 
6.4729222E+00 
-5<,  9362746E-02 
3.187540  5E-0 2 
7 . 8650763E  +  0  0 
1 . 00  000  0  OE +00 


2.10  00  0  0  OE+G 0 

0. 

0  . 

6 « 717291 5E  +  0  0 
-5. 2729382E-Q2 
8.27 12429E  +  0  0 
-9.4372249E-02 
4 <,  3  8  90  28 1E-Q  2 
9 . 920  7544E+0  0 
1. 0000000E+00 


TIME 


£  1.3040000 

lO 


2.3040003 


p 

PHI  MSL 

cx 

CL 

XNCS  £1 

Q 

THETA  MSL 

CY 

CM 

AAN 

R 

PSI 

CZ 

CN 

ASM 

FMXBA 

FX  BA 

XNPOS 

VXED 

XTPOS 

FMYBA 

FYB  A 

YNPOS 

VYED 

YTPOS 

FM2BA 

FZBA 

ZNPOS 

VZED 

ZTPOS 

RXED 

RXE 

RTXED 

RTXE 

DELX 

RYEO 

RYE 

RTYED 

RTYE 

DELY 

RZED 

RZE 

RTZED 

RTZE 

DELZ 

XLUN 

YlUN 

ZLUN 

DIASC 

TNOSOS 

2. 17  85  685E  +  0 1 
2 . 41 50  617E+0 1 
-3.6868219E+01 
2. 2995929E+0  0 
5 . 15  0  746  2E-0 1 
2.7661449E+01 
5 . 53166  04E+  0  2 
3. 3434  S89E-0 1 
7 . 2615  526E+  0 1 
1 . 47594  8  0  E  +  0 1 


3 . 0 161 247E+0 1 
-1.74077366+01 
1 . 7893 194E+0 1 
2. 3495128E+0  0 
-4.6075511E+01 
3.5874302E+01 
5.5111912E+02 
4.1883712E-01 
1.0284271E+02 
1.4759480E+01 


5  *9064598 E+01 
-7.9750741E+00 
-3. 4003130 E+00 
-1.5848107E+01 
-1.6947429E+01 
2 .1 499  552E+0  0 
7. 2365665 E+ 02 
4. 5789028E- 0 1 
-9.3420219E+02 
6.7652809E+00 


4.3322908E+01 
-9.3118179E+00 
-1.6683965E+00 
-1. 6048409 E+ 01 
-2. 684234 1E+01 
-3  »  548  262 5 £+01 
1 .27580  23E+Q3 
8 . 2666786E-01 
-8. 46712 77 E+ 02 
6 . 7652809E+0  0 


1. 0000000 E-01 
-1. 0693661 E- 01 
1.35660 06 E- 02 
-2.8398480E+00 
1. 5444858E-01 
6 . 6514553E+0 1 
5.566900QE+02 
0  . 

0. 

1 • 20 12  0  49E+0 1 


1.0000000  E-0 1 
-1.6725S57E-01 
-2.2109746 E-01 
1. 71580&1E+0  0 
6.78242316-01 
1 . 5412313E+Q2 
5.  56690  0 0 E+0  2 
0. 

0  . 

1.20120  49E+0 1 


2.4179205E-02 
2.5436261E-02 
2. 005C615E-01 
-1.7860410 E+00 
-1. 2024884E+00 
3 . 0  255896  E+  01 
7 . 2592383E+02 
0. 

-1. 0000000 E+ 03 

2. 0000000 E+00 


2. 6177788 E-02 
-4. 1455774 E- 01 
3 . 136  0983 E- 01 
-1 . 0  5631 03E+  0  0 
6. 2713593E-01 
2.6451396E+01 
1 « 2826139E+  0  3 
0. 

-1.0000000E+03 

2.0000000E+03 


2.1000000E+00 
0  . 

0. 

9. 0152651E+00 
8 . 58  8370  5E-0 1 
6.4850755E+01 
-2. 267182 9E +00 
4.57890  2  8E-0 1 
6 . 579781 0E+0 1 
1.0000000E+00 


2.1000000E+00 
0  . 

0. 

1. 3544764E+0 1 
1. 0227873E+00 
1 • 5218273E+02 
-6  *  8 11569 7E+C  0 
8.2666783E-31 
1. 5328723E+02 
1.000000  CE  +  0  0 


3 ,3040000 


-2.5971 37 4E+01 
-9.8724288E+QQ 
5  o  8454639E+G0 
4.1S23321E-OI 
4 «  3  $25 391  E-'-O i 
-4.14I9253E+0I 
5.489&537E+02 
5.9679866E-01 
1.3469581E+Q2 
i .4759480E+01 


4.S2G37S4E+01 
-1.8965623E+01 
-2.1972940E+00 
-1.6376853E+01 
2, 9QI3356E+Q1 
2.S358817E+01 
1.8258007E+03 
i .3251199E+GG 
-7.2775689E+02 
6, 7652809E+00 


1.0000000 E-G i 
1 »  77 160  70  E-0 1 
1.7316397E-01 
8.  6212686E+0  0 
1 ® 13780  46E+0  0 
2 . 7392206E+0  2 
5 . 566  90  0  0  E+Q  2 
0  . 

0. 

1.20 12049E+01 


-2.2308408 E~ 03 
3.2  468244  E- 01 
-3.3217632E-G1 
-3.5473934E+00 
8 . 7867S25E-P2 
3 . 6263171  £-*-0 1 
1 . 6393G39E+G3 
0.  . 

-1. 0000000 E+ 03 
2. 0000000  E+OG 


2« 10  G  0  C  0  OE  +  0  0 
G  . 

0. 

1. 9953933E+01 
1 • 5726256E+0  0 
2.70  02465E+0  2 
-1. 3503235E+01 
1.3251199E+C0 
2.7224311E+02 
1.000000  CE  +  O  0 


4.3040000 


ro 

cn 

o 


5.3040000 


1.0428571E+01 
1.117627  4E  +  0 1 
-1.0392022E+01 
-5. 5769830E+00 
-9. 6955703 E+ 00 
1 . 5391 361 E+0 1 
5 .4  672  413E+02 
5.6354841E-01 
1 . 6677368E+02 
1 . 475948  0E+0 1 


1.750452  7E+01 
-1.0797343E+01 
1 • 1 347567E+  0 1 
1.3233212E+0G 
-8.5965201E+G0 
7 . 2493315E+0  0 
5.4492381E+02 
7 . 4669  604£~0 1 
1.9753856E+02 
1 * 475948  OE  +  Qi 


5. 2906360 E+ 01 
-1 .7918157E+01 
-2.5441237E+0Q 
-1.6829174E+01 
-1 .G149456E+01 
-6.0390815E+00 
2.3736503E+03 
1.9062850E+00 
-5.7702418E+02 
6.7652809E+00 


5.4915584E+01 
-2. 10259 69 £+01 
-2. 3628 4 96 E+ 00 
-1.7408658E+01 
-6.0412053E+00 
-6. 9562393 E+ 00 
2 .9194869E+03 
2 . 5593333E+0  0 
-3.94922352+02 
6 . 7652809E+0  0 


1. 0000000 E- 01 
-6. 0303 69 9 E- 02 
-3. 58 84598 E- 02 
1. 74330  88E+01 
1 . 68  8  0957E+0  0 
4 . 24  5651 8E+0  2 
5. 5669000  E+0  2 
0. 

0. 

1.20 12049E+0 1 


1.OGOOO00E-01 
—3. 4702304 E-02 
-3. 99 58505 E- 02 
2 . 8379206E+G 1 
2. 3605311E+00 
6 . Q593117E+0  2 
5.56690  0  0  E+0  2 
0. 

0. 

1.2012049E+Q1 


-4. 1927267 E-02 
-6. 7283622 E-02 
1 . 13  0  78  81 E-  01 
-1.5402988E+00 
-9 . 3120149  E- 02 
3. 0151173E+01 
2 . 395994  0E+  0  3 
0  . 

-1 . 0 00  0  0  0 0  E+  03 
2.0000000E+00 


1.3872574E-02 
-7. 4922197 E-02 
6 . 50668  20  E- 02 
-1. 6011070 E* GO 
3 . 410 1859  E- 01 
3. G368192E+01 
2 . 952  68  41 E+0  3 
0. 

-1. OOOOOOOE+Q3 
2. GOQGGGQE+OQ 


2.1000000E+00 

0  . 

0. 

2. 8832196E+01 
2. 1945870E  +  0  0 
4.20  8757  4E+0  2 
-2.2343677E+01 
1.9062850E+00 
4. 2297582E+02 
1. 0000000E+00 


2.10000  0  0E  +  0  0 

0  . 

0  . 

3. 9563243E+0 1 
2 . 82  20 16  9E  +  0  0 
6.0  262854E  +  0  2 
-3.3197146E+01 
2 . 5593333E+0  0 
6. 0507765E+02 
1.0  0000  0  0E  +  C  0 


(The  reverse  of  this  page  is  blank) 


6. 

3040000 

•2.12  53299E+00 

5.540700QE+01 

1. 0000000 E“ 01 

-2.370 1851E- 03 

2.1000000E+00 

2.2848330E+00 

-2  .5610  868E+  01 

5. 7474747E-02 

1. 0523978E-01 

0. 

-1.2508873E4-00 

-2.7827688E+00 

5.6127883E-02 

-1.C776515E-01 

0. 

-2.6131968E-01 

-1.8111781E+01 

4 . 1410  8  07E-*-0 1 

-2 . 799  6473  £+  00 

5. 2211861E+01 

1. 4038  776E+G1 

1.04097Q0E+01 

3.0897243E*00 

-1. 6851493E-01 

3.  6147279E  +  0  0 

-1.4498037E+01 

1.0165759E+Q1 

8 . 20  71435E+0  2 

3.280  5529  E+01 

8. 1.553072E+02 

5.4274295E+02 

3.4633103E+03 

5. 5669000E+02 

3. 509374IE+03 

-4. 60  63763E+0 1 

7. 73 43 307 E- 01 

3.3158892E+00 

0. 

0. 

3. 3158892E+00 

2 • 2916  013E  +  C  2 

-1.8151869E+02 

0. 

-1.0000000E+03 

8.1848131E+02 

1. 475948  0E+  0 1 

6.7652809E+QQ 

1.2012049E+01 

2.0000000E+Q0 

1.0  0  00  00  OE+Q 0 

MISS 

DISTANCE 

= 

3.8718 43 25E+03 

TIME 

FINAL= 

7. 

05773162E+00 

r\5 

XM 

EARTH=  3.87184124E+03 

YM  EARTH= 

3.93932850E+00  2M 

EARTHs  o. 

cn 

7. 

0640000 

9.3486511E+00 

5.4119488E+01 

1. 0  0  0  0  0  0  0  E-0 1 

2.9273585E-03 

2.1000000E+00 

3 • 79  712  07E+Q  0 

-2 .722330  4E+01 

2.2108618E-02 

4.2685987E-02 

0. 

-3.0986879E+00 

-2.6692897E+00 

2.2765859E-02 

-4. 1453659 £-02 

0. 

1.3916510E-01 

-1.8732027E+Q1 

5.2636291E+01 

-2.3960274E+00 

6. 3288388E+01 

5.5615878E+00 

4.1413923E+00 

3.730  6685E+0  0 

-1. 5650043 E- 02 

4.2272866E+00 

-5. 4685397E+0  0 

4.2  6450  69  E+  0  0 

1.00  39474E+0 3 

3 . 1757898  E+01 

9. 9846156E+02 

5 . 4115314E+02 

3 .8752335E+  03 

5. 56690  OOE+O  2 

3.9324566E+03 

-5.7225078E+01 

8. 41 67886E- 01 

3 .9  4460  52E+  0  0 

0. 

0. 

3.9446052E+00 

2. 5288557E+02 

1.5841874E+00 

0. 

-1. OOOOOOOE+03 

1. C015842E+03 

1 • 475948QE+01 

6.7652809E+00 

1 . 20 120  49E+0 1 

2.0000000  E+00 

1.000000  OE+OO 

START 

PLOTTING 

AT 

0.0000000 

• 

PLOTTING  ENDED  AT  0.0000000 


REFERENCES 


].  Korn,  Stephen  C.,  "Use  of  the  Flow  Angularity  Technique  for  Predicting 
Store  Separation  Trajectories".  AFATL-TR-71  -140,  Air  Force  Armament- 
Laboratory,  October  1971. 

2.  Davis,  Ronald  E. ,  "Flow  Field  Characteristics  Beneath  the  F-4C  Aircraft 
at  Mach  Numbers  .50  and  .85",  AEDC-TR-70-8,  Arnold  Engineering  and 
Development  Center,  February  1970. 

3.  Hill,  David  W. ,  "Investigation  of  the  Flow  Field  Beneath  the  Wing  of 
the  F-4C  Aircraft  with  Various  External  Stores  at  Mach  Number  .85", 
AEDC-TR-72-92,  Arnold  Engineering  and  Development  Center,  June  1972. 

4.  Martin,  Fred  W.5  "Cross-Flow  Corrected  Axisymmetric  Solution  for 
Multiple  Body  Interference" ,  AFATL-TR-71 -1 09 ,  Air  Force  Armament 
Laboratory,  August  1971. 


253 

(The  reverse  of  this  page  is  blank) 


INITIAL  DISTRIBUTION 


USAF  { RDPA)  1 

AFSC  (DIP)  1 

(DlTW)  1 

(DLXP)  1 

AFAL  (TE)  ] 

(MV)  1 

ASD  (SO)  I 

(ENYS)  1 

658d  Test  Gp  (TO)  1 

AFWL  (DOGL)  ] 

AU  (AUL/LSE-70-239)  1 

Sandia  Corp  (Tech  Lib  3421)  1 

NASC  (AIR-5323)  1 

USNRL  (Code  7780)  1 

NASC  (AIR  5352)  1 

RAND  Corp  (Library  D)  1 

NIC  (Code  4063)  1 

(Code  753)  1 

USA  Engr  R&D  Lab  (lech  Doc  Ctr)  1 

USNOL  (Code  730)  1 

AEDC  (ARG,  Inc)  1 

DDC  2 

AFATL  (DL)  1 

(DLB)  1 

(OLD)  1 

(DLI)  1 

(DLQ)  1 

(QLW)  1 

(DLR)  1 

(DLU)  1 

(DLX)  1 

(DLY)  1 

(DLG)  10 

(DLK)  1 

(DLJ)  1 

(OLA)  1 

(DLOSL)  2 

TAWC  (DT)  1 

NATC  (WST-35)  1 

ASD  (ENFDA)  1 


255 

(The  reverse  of  this  page  is  blank) 


UNCLASSIFIED 


Security  Classification 


DOCUMENT  CONTROL  DATA  -  R  &  D  | 

(Security  classification  of  title,  body  oi  abstract  anti  indexing  annotation  must  be  entered  when  the  overall  report  is  classified) 

f  1  ORIGINATING  ACTIVITY  (Corporate  author) 

2*.  REPORT  SECURITY  C  L  A  SSI  El  C  A  TION  jf 

Product  Assurance  Division 

Unclassified  1 

|  Air  Force  Armament  Laboratory 

26.  GROUP  | 

|  Eglin  Air  Force  Base,  Florida  32542 

1 

I  3  ■  REPORT  TITLE 

I 

I  VALIDATION  AND  EXPANSION  OF  THE  FLOW  ANGULARITY  TECHNIQUE  FOR  PREDICTING  STORE 

'  SEPARATION  TRAJECTORIES 

1  A.  DESCRIPTIVE  NOTES  (Type  oi  report  and  inclusive  dates) 

1  Final  Report  (April  -  August  1972) 

- - 1 _ L-t 

•  5  au  FHOR(S)  (First  name,  middle  initial .  last  name) 

Capt.  Stephen  C.  Korn 


I- 


L 


p  6  REPORT  DATE 

7a.  TOTAL  NO.  OF  PAGES 

7b.  NO-  OF  REFS 

S  September  1972 

261 

4  1 

|  8/3.  CONTRACT  OR  GRANT  NO 

1 

9a.  ORIGINATOR'S  REPORT  NUMBER(S) 

!  b.  PROJECT  NO-  2567 

AFATL-TR-72-184 

_ I 

|  c. 

9b.  OTHER  REPORT  NO(S)  (Any  other  numbers  that  may  be  assigned  | 

this  report) 

1  d. 

i _ -- —  ^ _ 

1 

.0.  o.str,bot,on^temeWt  Distribution  limited  to  U.S.  Government  agencies  only;  this 
-’report  documents  test!  and  evaluation;  distribution  limitation  applied  September 
■972.  --Other  requests- for  this  document  must  fee  referred  to  the  Air  Force  Armament 
: Laboratory  (DLGC) ,  EglMn  Force  Base,  Florida  32542. 


11.  SUPPLEMENTARY  NOTES 


[I  Available  in  DDC 

5 


12-  SPONSORING  MILITARY  ACTIVITY 


Air  Force  Armament  Laboratory 

Air  Force  Systems  Command 

Eglin  Air  Force  Base,  Florida  32542 


13  ABSTRACT 


I  his  report  documents  the  external  flow  fields  caused  by  various  weapon  confi¬ 
gurations  on  the  wing  of  an  F-4  aircraft,  verifies  assumptions  made  in  the  flow 
angularity  technique,  and  presents  the  documentation  for  the  "Flow  Angularity 
Computer  Program"  with  example  trajectories.  The  flow  angularity  program  is 
presently  capable  of  calculating  the  trajectories  of  stores  off  the  inboard  and 
outboard ^wi ng  stations  in  either  single,  triple  ejector  rack,  or  multiple  ejector 
1  nack  configurations.  The  assumptions  made  in  the  flow  angularity  technique 
have  been  analyzed  and  generally  validated  as  good  approximations. 
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